Предмет: Информатика,
автор: Yann14
Написать программу которая выводит на экран максимальное из трех целых чисел.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы