На языке Паскаль ввести 4 числа и вывести большее из них
С циклом for для натуральных чисел:
var a, i, max:integer;
begin
max:=0;
writeln (Введите натуральное число);
for i:=1 to 4 do
begin
readln (a);
if (a>max) then max:=a;
end;
writeln (Максимальное число , max);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
