Нужно составить программу с помощью Repeat,определяющую ...
Нужно составить программу с помощью Repeat,определяющую максимальное из всех введённых вами чисел.(Пусть признаком конца ввода чисел является введённое число 0).
Есть ответ
17.12.2022
463
Ответ
var i, e : Integer;begin
Writeln('Вводите числа:');
i := 0; repeat Readln(e); if e > i then i := e; until e = 0; Writeln('Наибольшее число: ', i);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
