
Найти минимальное из чисел, введенных с клавиатуры. Признак конца ввода число 0. Чисел
неограниченное кол-во. Решать через repeat

Ответы на вопрос




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.



Для решения данной задачи можно использовать цикл `repeat` и переменную `minNumber`, которая будет хранить минимальное введенное число. Алгоритм решения будет следующим:
1. Инициализируем переменную `minNumber` значением `nil`, чтобы отличить ее от введенных чисел. 2. Вводим число с клавиатуры и сохраняем его в переменную `number`. 3. Проверяем, является ли введенное число равным 0. Если да, то прерываем цикл. 4. Если значение `minNumber` равно `nil`, присваиваем ему значение `number`. 5. Если значение `minNumber` не равно `nil`, сравниваем его со значением `number`. Если `number` меньше `minNumber`, присваиваем `minNumber` значение `number`. 6. Повторяем шаги 2-5 до тех пор, пока не будет введено число 0. 7. Выводим значение `minNumber` - минимальное введенное число.
Пример кода на языке Python:
```python minNumber = None
while True: number = int(input("Введите число: ")) if number == 0: break if minNumber is None: minNumber = number else: minNumber = min(minNumber, number)
print("Минимальное число:", minNumber) ```
Таким образом, данный код будет выполняться до тех пор, пока не будет введено число 0, и находить минимальное из всех введенных чисел.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili