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