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

Question

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

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.

---

Comments

я просил через while

---

ой

---

while n > 0 do

---

все. нащел.

---

омг.