Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Утешитель
20.04.2021 09:54 •
Информатика
Составить программу которая подсчитывает количество трехзначных чисел кратных 7
Показать ответ
Ответ:
Sungatullinraf
07.10.2020 08:52
Var a: integer;
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
viktrozumovskaoyqqjq
10.04.2020 19:44
Ребят, кто знает как решать 5 и...
PatiFon4ik
26.06.2022 11:29
Сделайте плз инфа 11-10 класс...
asdfghjkl115
06.03.2020 11:56
Напиши знаки препинания в бусинах цепочки б так, чтобы были истинны все утверждения: цепочка из 8 бусин - в цепочке б многоточие идёт раньше двоеточия. - в цепочке б открывающая скобка...
persik21783086532
13.04.2022 05:45
информатика 6 класс.Черепашка.Какие команды нужно написать для выполнения заданий? N Python. Черепашья графика. Зачетная работа. Вариант 1. 1) Установите синий цвет толщину Нарисуйте...
aryka2
02.08.2020 11:24
В классе 10010, девочек и 1010, мальчиков. Сколько учеников в классе?18 48 3828 ...
tanyaraeva2017
16.10.2020 11:54
Записать в тетрадь 5 устройств ввода информации и описать, какую информацию каждое устройство позволяет вводить в компьютер...
marina03501997
08.10.2022 20:22
Винайшовши письмо люди очевидно не переставали дивуватися його значущості можливостям і приписували створення письма богам. розтавте пропущенні розділові знаки и зробіть повний синтаксичний...
Maxyim
08.10.2022 20:22
Много сказано, а послушать нечего- что означает?...
kyzmina97
08.10.2022 20:22
Найдите область определения функции y=arcsin(x^2-3)+ корень из 5x-x^2-6...
Vrentor
08.10.2022 20:22
Самолет 1/3 пути пролете со скоростью 900км/ч, а оставшийся путь (2/3) со скоростью 1100км/ч. найти среднюю скорость. плз...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
a:=0;
for var i:=100 to 999 do
if (i mod 7=0) then
a:=a+1;
write(a);
end.