Question

Вводи числа до тех пор пока не будет введён ноль , определить наибольшее число

Answer 1

P.S Программа написана для Pascal.

program chislo;

var  

a, max : integer;

begin

max:=0;

repeat  

writeln('Введите натуральное число');

read(a);

if a>max then

max:=a;

until a=0;

writeln('Наибольшее число: ',max);

end.

Answer 2

Какой язык программирования вы используете? Вот пример решения этой задачи на языке Python:

pythonCopy code
max_number = None  # инициализируем переменную для максимального числа

while True:
    number = int(input("Введите число (для завершения введите 0): "))
    if number == 0:
        break  # выходим из цикла, если введен 0
    if max_number is None or number > max_number:
        max_number = number  # обновляем значение максимального числа

if max_number is not None:
    print("Наибольшее число:", max_number)
else:
    print("Вы не ввели ни одного числа")

В этом коде мы используем бесконечный цикл while True, который прерывается только если пользователь введет 0. В каждой итерации цикла мы запрашиваем у пользователя ввод числа и проверяем, не является ли это число 0. Если это так, мы выходим из цикла с помощью оператора break.

Если число не равно 0, мы сравниваем его со значением переменной max_number, которая изначально равна None. Если max_number еще не было установлено, или текущее число больше, чем max_number, мы обновляем значение max_number.

В конце программы мы проверяем, было ли установлено значение max_number. Если да, то выводим его на экран, а если нет - выводим сообщение об отсутствии введенных чисел.