Написать программу которая выводит на экран максимальное из трех целых чисел.
Ответы на вопрос
Ответил walleri1
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.
Новые вопросы