Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
никита3227
24.06.2022 00:43 •
Информатика
Нужна с клавиатуры вводятся натуральные числа.конец ввода чисел–0,в подсчетколичества не входит.вычислить и вывести на экран количество чисел,кратных 7.
Показать ответ
Ответ:
dimakovelko
24.05.2020 20:57
var
a, n : integer;
begin
repeat
read(a);
if a div 7 = 0 then n += 1;
until a = 0;
writeln(n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ladytka4ewa201
03.06.2021 18:00
Решите просто записать решение и ответ...
galina510
09.04.2021 16:57
Дано дерево каталогов. назовите полное имя файла doc3...
Серафима1234
19.10.2022 11:17
Write a short text about Pau Gasol. Write three paragraphs. Use the information in the table Напиши короткое сообщение об испанском профессиональномбаскетболисте...
niknameoyy
15.12.2020 15:34
Пианист удостоенный первой премии на первом конкурсе имени шопена в варшавепианист удостоенный первой премии на первом конкурсе имени шопена в варшаве ОТВЕТЬТЕ...
ненадамине
11.09.2022 12:05
Какие силы показанны на рисунки КЛАСС ФИЗИКА*...
геймер40
27.04.2020 14:09
10. Мәтінді азатжолдарға бөліп, ақпаратты дұрыс жүйелеп, стильдік түзетулер енгізіп, редакциялаңдар.Жазғы уақыттары өңірлерде жауын-шашын нормаданәлдеқайда көп түсіп,...
сегго
27.04.2020 14:09
Синтактичний розбір В кімнаті не було ніяких меблів Крим залізного шафу в кутку і письмового стола...
dddddkkke
24.01.2022 01:12
2 Я применяю формулы и умею решать задачи на взаи-мосвязанные величины.Реши задачу.Двое рабочих изготовили 465 деталей за 5 рабочих дней.С какой производительностью...
Evgeniy11111111111
17.09.2021 19:21
Синоним сөздерді табыңыз. /найдите синоним/ А) Бас, аяқ.В) Мұғалім, оқушы.С) Бас, жақ.D) Әдемі, сұлу.Е) Үлкен, кіші.2. Буынға бөлінбейтін сөзді белгілеңіз./отметьте...
Аккаунт удален
13.03.2023 07:18
Part 1 Read the article again and give answers to the questions Write no more than THREE WORDS1. It separates the USA and England2. He is going to eat something...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a, n : integer;
begin
repeat
read(a);
if a div 7 = 0 then n += 1;
until a = 0;
writeln(n);
end.