Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
MN0G0ZNAAL
29.11.2022 13:18 •
Информатика
На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3
Показать ответ
Ответ:
dashoostik
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 оценок)
Популярные вопросы: Информатика
julianna19
03.01.2023 21:28
Алёна приготовила красивый вкусный торт есть сразу же захотелось рассказать об этом друзьям коротко и быстро Какие кодирования использовала Алёна высота и ширина торта текстовое...
ponchara423
07.10.2020 11:28
Исполнитель редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v, w) нашлось...
Карина2203
04.08.2021 23:00
Петя утром поймал плотничек на 3больше,чем окунула.вечером он поймал ещё 7плотвичек и 12окуньков. какой рыбы он поймал за день больше и на сколько?...
morti3
04.08.2021 23:00
Надо 3 слова синонима,3 слова антонима....
Vika2002588
04.08.2021 23:00
Найдите или придумайте стих про радикал, , надо! можно маленький стишок. стих нужен именно про радикал....
Nahchik
04.08.2021 23:00
Какой смысл выражения удельная теплоёмкость торфа...
pikachu7bitch
04.08.2021 23:00
Как решают такие примеры: 1 дм 2 см - 4 см= 9 см + 9 см=...
1526962
04.08.2021 23:00
Проверочные слова к слову федерация...
zalikmap08ic7
04.08.2021 23:00
Отметьте в тетради точку m и покажите штриховкой множество всех точек расположенных от точки m на расстоянии больше чем 2 см и меньшем 3 см...
hocoladka
04.08.2021 23:00
Определите сумму предельной склонности к потреблению и предельной склонности к сбережению, если известно, что уравнение потребления в экономке имеет вид c=10+0,8y, доход y=100...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.