Написать программу в паскале, используя repeat until . : дана непустая последовательность, оканчивающаяся нулем. найти в ней минимальную цифру.
ЛизкаСосиска228
2
20.03.2019 23:20
9
Другие вопросы по теме Информатика
Снежок74
31.05.2023 08:58
sashachernov1
31.05.2023 09:05
kosorotovslavik
31.05.2023 09:08
топфифа2
31.05.2023 09:09
ep53
31.05.2023 09:10
gopina04vika
31.05.2023 09:11
шунгит
31.05.2023 09:19
Элиза5511
01.06.2019 04:30
ksenia112005
30.01.2022 06:24
Популярные вопросы
- Вчисле а75в435а+в =9, вставте вместо а и в такие цифры , чтобы...
1 - Охарактеризуйте процесс горения бытового газа....
3 - Доведіть тотожність 6(3b - 4) - 5(3b - 11) + 2=3b + 33...
1 - Найдите значение выражения а) 1,53*54-0,42*(512-491,2)+1,116=...
2 - Переведите десятичные числа в двоичную систему счисления а)322...
2 - Выберите из данных утверждений верные. 1) звук, слог, ударение...
1 - Туристы проплыли на лодке по озеру 18 км. за такое же время, что...
1 - Скласти речення з прислвниками назад, напам ять, попереду, праворуч,...
2 - Водной теплице собрали собрали 38 килограмм помидоров другой 50...
2 - На овощной склад помидоры на 6 машинах по 120 ящиков на каждой...
1
var x,min:integer;
begin
min:=999999;
repeat
readln(x);
if (min>x) and (x<>0) then min:=x;
until x=0;
writeln(min);
end.