Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). Паскаль. Через while. С комментариями. Желательно попроще.

Question

Информатика

Онести

15 июня, 17:15

Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). Паскаль. Через while. С комментариями. Желательно попроще.

+4

Ответы (1)

Знаете ответ?

Виталлий · Answer 1

var n, number, max:integer;

begin

n : = 3;

while n > 0 do

begin

readln (number) ;

if n = 3 then max : = number

else if max < number then max : = number;

n : = n - 1;

end;

writeln ('Максимальное число = ', max) ;

end.