На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3
Cat2081
2
21.09.2019 17:50
3
Другие вопросы по теме Информатика
3743Dasha
15.01.2022 07:12
mtmrfz43
02.09.2019 04:30
Nna564
02.09.2019 04:30
Katyshkamya
02.09.2019 04:30
Арина999111
23.08.2021 20:25
vlipinskiy16
23.08.2021 17:50
п152
23.08.2021 16:46
MilanaKnyazeva230899
19.07.2019 01:40
Лера22062004
19.07.2019 01:40
Популярные вопросы
- Функция задана формулой y=2x-4 б) найти значение x при которому значение...
3 - 7.) Прочитайте оповідання та виконайте завдання. СІМ ГОСПОДИНЬ У нас у хаті...
1 - у пробірках без написів містяться розчини калій гідроксиду, хлоридної кислоти...
1 - 1. Школьники ходили в поха картинке. Дополни до ближайшего десятка, и ученики...
3 - Определить границы, в которых должно заключаться значение z, чтобы корни...
3 - ответьте на задания: - причины ухудшения отношений между СССР и США в конце...
3 - Составьте краткий рассказ по синквейну. 1.Традиция 2.семейная,многолетняя3.Чтится,передаётся,оберегается.4.традиции...
3 - за запропонованим цитатний матеріалом визначте риси характеру Мазепи-пажа...
2 - Составить отрицательные предложения и специальные вопросы. каждого 5 штук...
3 - 1.Спишите, вставляя пропущенные буквы. Соб..рать, отп..реть, бл..стеть,...
3
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.