Паскаль, цикл while вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. ввод закончить 0. вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3. ,
марьяна126
3
04.06.2019 06:20
4
Другие вопросы по теме Информатика
davidpolshin
07.09.2019 14:20
apologise
07.09.2019 14:20
Rossen
22.04.2021 22:25
666Лиза66611
22.04.2021 23:04
SerAv2000
22.04.2021 23:05
SaySasha02
22.04.2021 23:05
kotnapnewme123p04tz4
22.04.2021 23:10
krasotkak31
22.04.2021 23:14
ryslan3222
22.04.2021 23:16
Популярные вопросы
- 6. решите уравнения: а)3,7а +15 + 4,1а=89,1 б)14 +6,2а +2,4а=69,9...
1 - Можете ли вы согласиться с тем, что в поэме народ не только , но и протестующий,...
2 - Безответная любовь сочинение 15.3 2 аргумента из . 90 ....
3 - Подобрать к слову синоним: весёлый-радостный,васхищённый довольный....
3 - Из пунткта а в пункт в вышел турист со скоростью 4 км/ч а через 1 ч.30 мин....
3 - Надо 1.дан отрезок ав,ав=5 см причем в середина отрезка ам найдите расстояние...
2 - Сравни и поставь знак а) и б) 3640см 36м...
2 - Фокусные расстояния трёх линз соответственно равны 2,4 м, 1,4 м и 3,7 м....
1 - Особенностью атмосферной циркуляции, приводящей к частой смене погоды в северной...
2 - При якому значенні зміної не має змісту вираз? х-8 х-14...
3
begin
while n<>0 do
readln(n);
if (n mod 2)=0 then d:=d+1;
if (n mod 3)=0 then t:=t+1;
writeln(d,' ',t);
readln;
end.