Консультация № 136463
12.05.2008, 13:46
0.00 руб.
0 1 1
Найти наибольшее из 6 чисел, введеных с клавиатуры

Обсуждение

Неизвестный
12.05.2008, 14:06
общий
это ответ
Здравствуйте, Cobain!
Решение задачи в приложении. Только я советую решать подобное самому - на таких задачах учатся.

Приложение:
program Project2;var i, n, max:integer;beginfor i:=1 to 6 dobeginwriteln (‘Введите число‘);readln (n);if (n>max) or (i=1) then max:=n;end;writeln (max);readln;end.
Форма ответа