logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
жепа564
жепа564
03.03.2023 06:11 •  Информатика

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

Показать ответ
Ответ:
Anotherdream
Anotherdream
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 оценок)
Популярные вопросы: Информатика
vinney
vinney
25.01.2023 16:08
4. Какая запись в начале темы указывает на то, что письмо является ответом? А) Сс B) Re C) An D) Rr​...
АлинаБречко
АлинаБречко
17.01.2022 12:12
Какое целое число должно быть записано в ячейке A1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:С2 соответствовала рисунку?...
insarycheva
insarycheva
28.05.2022 00:51
• Контур • Следуй за мной • Тяни/толкай • Дуга • Выбор...
ЛориXD
ЛориXD
25.06.2020 01:09
Выразите в килобайтах 3956 бит и 2/6 мбайт...
ksenia5051
ksenia5051
27.01.2020 10:26
6. Инструкции, определяющие порядок работы при включении компьютера, хранятся в… a) Процессоре c) В человеческом мозге b) Оперативной памяти d) На жестком диске...
Stepanovayu2405
Stepanovayu2405
25.02.2023 05:58
Какое логическое выражение равносильно выражению (фото)...
ынпщщ357
ынпщщ357
08.04.2021 13:37
Для размещения одного символа в текстовом режиме используется матрица 8 × 8 пикселей, которая называется знакоместом. количество строк равно 75, а знакомест в строке...
Yasmin1708
Yasmin1708
08.04.2021 13:37
Укажите отношение для пары «процессор и системный блок»: а. является элементом множества б. входит в состав в. является разновидностью г. является причиной...
зайка583
зайка583
19.10.2020 10:25
Фонетичний розбiр слiв: хазяïн,гаразд. дякую....
ТаняСажнева486
ТаняСажнева486
19.10.2020 10:25
Можно ли из стальной проволоки длиной 3,5 м согнуть обруч диаметром которого равен 1,52 м? ответ написать понятно!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота