Написать программу которая выводит на экран максимальное из трех целых чисел.
Написать программу которая выводит на экран максимальное из трех целых чисел.
Гость
Ответ(ы) на вопрос:
ГостьProgram MAXIN;
var
A:integer;
max:integer;
i:integer;
begin
max:=0;
for i:=1 to 3 do begin
writeln('Введите ваше число');
readln(A);
If A>max then max:=A; end;
writeln('Максимальное число=', max:2);
End.
Не нашли ответ?
Похожие вопросы