Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел неограниченное кол-во. Решать через repeat
Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел неограниченное кол-во. Решать через repeat
Гость
Ответ(ы) на вопрос:
Гость00000000000000000000000000000000000000000000000000000000000000000000.1
Гостьprogram abrakadabra;
var a,b,max:integer;
Begin
repeat
readln(a);
readln(b);
if a >= b then max:=a
else max:=b;
until a = 0;
writeln(max);
readln();
End.
Не нашли ответ?
Похожие вопросы