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


tema3331
12.09.2021 22:35

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

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Staz134
Staz134
16.05.2022 23:12
Запишите десятичное число 15 10в двоичной системе счисления...
Luka2015
Luka2015
23.11.2020 23:13
Решите все ! много ! программы нужно сделать в программе кумир...
NastenkaDrow
NastenkaDrow
22.01.2020 21:18
X+y÷x+16-yx -24÷17+x информатика по паскалю...
ilike1
ilike1
29.11.2022 19:45
Назовите методы борьбы с кибергпреступностью....
Hehehe225
Hehehe225
15.10.2022 14:08
Из данного натурального числа удалить все цифры а (а вводятся с клавиатуры). написать программу в !...
danilox2007
danilox2007
15.10.2022 14:08
1.дано натуральное число: a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры а (цифру а вводить с клавиатуры) 2. найти все трехзначные...
dimanchik0108
dimanchik0108
07.12.2020 07:34
Что делать? Перестало работать телевидение пишет это :УВАЖАЕМЫЙ ЗРИТЕЛЬ! ТРАНСЛЯЦИЯ ВЕДЁТСЯ ТоЛЬкО для НАШИХ АБОНЕНТОВ. ЧТОБЫ СМОТРЕТЬ ПРОГРАММЫ, ФИльмы и СЕРИАЛЫ...
naziraa021
naziraa021
22.01.2020 23:37
Роботтын кандай турлери бар?....
djezhik
djezhik
04.06.2022 13:06
Как перевести из восьмеричной системы в десятичную 0,443...
TimGoPro
TimGoPro
29.12.2020 18:42
Определить какой объем памяти требуется для хранения 1 бита изображения на вашем компьютере...
Ответ:
mishustinat
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-бота