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

Question

Информатика

Лауриан

13 февраля, 16:58

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

+2

Ответы (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.