Заранее . условие : определить наименьшее из чисел, введенных с клавиатуры. количество чисел неизвестно, а их запрос с клавиатуры прекращается, если введено число "0". нужно решить в паскале.
Другие вопросы по теме Информатика
IHannahI
25.04.2022 11:16
AnastasiaHCWP
25.04.2022 11:23
Jdjsjsbbsbsbдевочка
19.05.2020 12:45
magasaidov
19.05.2020 12:46
natachapligina
19.05.2020 12:46
Hemmgirl
21.05.2020 21:23
24051999z
21.05.2020 21:23
gmailua
26.05.2019 18:30
pep4
26.05.2019 18:30
Популярные вопросы
- Здравствуйте написать соч....
2 - Число 6034 запиши у вигляді суми розрядних доданків у меня годовая к/рдам подписку...
3 - Мы узнаем ,что когда берешь грибы ,лучше их срезать ножом, нежели выдирать с...
3 - Укажите номер предложения, в котором средством выразительности речи является...
3 - 4.При паралельному перенесенні коло (х-1)²+(у-1)²=1 переходить в коло (х-4)²+(у+3)²=1.Знайти...
3 - Сравните цикл развития голосеменных и покрытосеменных растений. Напишите сходства...
1 - br / br / Қашықтан оқыту. «Қазақ әдебиеті» пәнінен 4-тоқсан бойынша жиынтық...
1 - График функции y=kх-3 1/6 проходит через точку с координатами (11,2 5/6) Найдите...
2 - 1.А)Заполните таблицу: Из приведенных ниже формул формулы оксидов и дайте им...
1 - 3. Когда было принято решение, учреждающее Куйбышев запасной столицей нашего...
2
program raf105;
var a, min: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
min:= 10000;
readln(a);
while a<>0 do
begin
if a<min
then min:= a;
readln(a);
end;
writeln('Наименьшее: ',min);
end.
Язык PascalABC