Составить программу нахождения минимального элемента кратного 7 среди вводимых с клавиатуры целых трехзначных чисел. Числа вводятся до тех пор, пока не введено число 0
hcg1
2
23.04.2020 21:45
0
Другие вопросы по теме Информатика
alicianovikova
12.10.2019 11:32
nargiz999
12.10.2019 11:32
Stepka112
12.10.2019 13:29
kseriii
12.10.2019 13:25
karisafedotova2
29.04.2021 15:40
baranovkirill
29.04.2021 15:40
marsimonenko2017
29.04.2021 15:40
Ршмшрмпширщ
29.04.2021 15:39
Популярные вопросы
- Дайте оценку городам: Почему Новгород и Киев стали главными городами...
3 - Считаешь ли ты, что положение в нашей стране из менилось бы к лучшему,...
2 - 4.Practical work. 1. Укажите имена переменных: сумма, prog_l, input,...
3 - Спрощення приголосних треба позначати на письмі в усіх словах рядка: *...
2 - Написать сочинения – описания природы на основе собственных наблюдений....
1 - Фюутбольное поле имеет длину 110м и ширину 75м .Найдите площадь футбольного...
2 - Особливості кровообігу у амфібій...
2 - Сравните рассказ Хамелеон с рассказом Толстый и тонкий по художественной...
1 - Найти угловой коэффициент касательной у = ln5x, x0 = 1...
1 - Основи здоров я 6 клас〔〕який стиль спілкування сприяє дружбі? чому?...
3
program z1;
var s, a:Integer;
begin
a:=999;
readln(s);
while s<> 0 do begin
if (s mod 7 =0) and (s<a) then a:=s;
readln(s);
end;
writeln(a);
end .