Составьте программу в паскале, которая находит наименьшее из чисел кратное 3.количество чисел не меньше 1000.
timaglushko200
1
30.03.2019 05:00
0
Другие вопросы по теме Информатика
oksanastrilets
11.05.2021 10:34
ХАМЕЧОКЕ2036
11.05.2021 10:32
blubondovro0a
23.04.2020 12:47
OTJTu4HuK
10.04.2020 17:54
lilka23
10.04.2020 17:54
lolol6y
30.11.2020 12:49
Aarna
30.11.2020 12:49
Katyag2000
21.04.2020 20:51
NazSha
21.04.2020 20:51
deniskamikhalcozvly4
21.04.2020 20:51
Популярные вопросы
- Https://naurok.com.ua/kontrolna-robota-testi-z-ukra-nsko-movi-vidokremleni-chleni-rechennya-utochnyuyuchi-chleni-rechennya-8-klas-77419.htmlПамагити...
3 - Поміркуйте, чи була згода пересічного римлянина стати гладіатором смертним...
3 - (5)Это были прелестные сказки! (6)Я начал читать и зачитался. (7) На...
1 - «Врачи – дерматологи рекомендуют после душа, обязательно принимаемого...
2 - Подайте у вигляді степеня з основою х вираз...
3 - Можете А вставила слова, но времена нет 1)present 2)be 3)radiate 4)have...
3 - Компоненти природи які належать до природних ресурсів-це1 Ґрунти2Рель...
2 - Вкажить ряд речовин, в якому наведенно тильки гидроксиди А) K2SO4,MgO,...
2 - Отсаиванием можно разделить смесь воды и Мела песка и Мела воды и глицерина...
2 - Установи соответствие между схемой химической реакции и веществом,...
2
const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.