logo
Войти Регистрация Спроси ai-bota


На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Remrans
Remrans
15.05.2022 06:33
Вывести все слова содержащие больше одной буквы «ы» vba...
BARBARA070704
BARBARA070704
17.12.2021 09:50
Составить блок схему к задаче и написать программу на паскале для вычисления функции x={y+10 если y _0 {y-8 если y 0...
sebasogo
sebasogo
29.09.2021 20:25
Используя заданные макеты рисунков написать программу на языке Паскаль. Для замкнутых областей рисунка выполнить заливку цветом....
Проблеск
Проблеск
20.11.2021 18:31
Вчимо з інформатики алгоритмічну конструкцію розгалуження та логічні операції. Тема: C++Потрібно зробити задачу. За такими даними Марійка та Галинка мали по T і R цукерок відповідно....
demonsmurnov75
demonsmurnov75
03.03.2020 15:33
Написать программу вычисления значения кусочно-определённой функции при аргументе, введённом с клавиатуры x2+10, если х =5 Y(x)= -x+5, если х 5...
Killyourself1
Killyourself1
30.03.2020 18:10
До ть будь ласка ПлІЗзззззз​...
Токаарічіна
Токаарічіна
24.05.2022 22:40
) Якщо по дизайнеру форми двічі клацнути мишкою, то…а. Буде створено процедуру OnClick; б. Буде створено процедуру OnDblClick;в. Буде створено процедуру OnCreate; г. Нічого.​...
Polinka1353
Polinka1353
06.10.2020 12:02
Вопрос Система счисления - это... Укажите правильный вариант ответа: 1 знаковая система, применяемая для записи чисел 2 знаковая система представления чисел с цифр (символов алфавита)....
balatzkymaxp0a4t7
balatzkymaxp0a4t7
14.07.2020 17:50
Описать программу, и распиши что где примерно. Arduibo .C++ #define SPEED_1 5 #define DIR_1 4 #define SPEED_2 6 #define DIR_2 7 void setup() { for (int i = 4; i 8; i++) { pinMode(i,...
Damir6565
Damir6565
19.06.2020 04:03
Составить краткое сообщение об основной позиций пальцев на клавиатуре .по информатике задали 5класс...
Ответ:
lipovtsev2016
08.10.2020 07:40
Вот держите:

var     a,k:integer;

begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота