var a,b,c,min,max:integer;
begin
read('Введите 3 числа для сравнения (через пробел) : ');
write(a,b,c);
min:=a;max:=a;
if b>max then max:=b;
if b
if c
readln('Максимальное число : ',max);
readln('Минимальное число : ',min);
writeln;
end.
Заголовок программы. Программа с названием Нахождение максимального и минимального значения.
Описание раздела переменных.Данные переменные заданы целочисленным типом.
Начало программы.
вводим три числа через пробел.
вывод данных на экран.
Оператор ветвления.Происходит сравнение оставшихся введенных переменные со значениями переменных min и max.
ввод данных-максимальное число
ввод данных-минимальное число
вывод данных на экран
завершение программы.
Я не знаю что делать,у меня не вводится 7строка из программы правильно.
ОтветитьУдалитьif b>max then max:=b;if bmax then max:=c;if cmax then max:=b; if bmax then max :=b; if c<min tnen min:=c
ОтветитьУдалитьдаже комментарий не вводит некоторые знаки
ОтветитьУдалитьНастя, вот как раз эту строку и надо было поподробнее расписать - в ней самое важное... Чтобы она выводилась, надо было поставить пробелы, а не копировать как есть.
ОтветитьУдалитьЗадание зачтено.
вот именно,что я от руки её писала..но видимо пробелы не ставила
ОтветитьУдалить