Предмет: Информатика,
автор: Elmir03042003
Найти наибольшее из трёх чисел (3 числа вводим с клавиатуры). Паскаль. Через while. С комментариями. Желательно попроще.
Ответы
Автор ответа:
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.
Приложения:
Elmir03042003:
я просил через while
ой
while n > 0 do
все. нащел.
омг.
Интересные вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: elamurmaer2
Предмет: Математика,
автор: sasakaloka37
Предмет: Математика,
автор: Оля11211
Предмет: Обществознание,
автор: вегерам