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

Составить программу которая подсчитывает количество трехзначных чисел кратных 7

Показать ответ
Ответ:
вика6010
вика6010
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 оценок)
Популярные вопросы: Информатика
vanyaburundukov
vanyaburundukov
09.05.2023 18:32
Write ( h = , h); для h=5 на экране будет ​...
P4ndainst
P4ndainst
29.07.2020 19:01
S: = 123456789 ; n : = pos ( 456 , s); delete ( s, n+2, 3 ); writeln ( s ); объясните как работает эта программа что делает pos...
Fsyh
Fsyh
10.09.2022 10:08
Решить для программирования с++...
ivanovartem450p08ajg
ivanovartem450p08ajg
20.02.2020 17:11
Как сделать анимированный сдвиг картинок при скролле страницы сайта? ​...
Атмир089997
Атмир089997
12.08.2021 10:18
S: = 12345 ; n : = length(s) + length( 456 ); writeln ( n ); как работает эта программа...
захарчинкозахар
Номер 3 надо решить с циклом if...
spiridon
spiridon
01.05.2020 07:13
S: = 123456789 ; delete ( s, 1, 2 ); n : = pos ( 6 , s ); writeln ( n ); как работает эта программа должно получится 4...
AnastasiyaSm
AnastasiyaSm
19.12.2021 11:06
Последовательность действий для создания анимации в программе microsoft powerpoint1. откройте программу для работы с презентациями microsoft office 2. вставьте на слайд фоновый...
ник41111
ник41111
30.01.2023 00:46
Спрограммы-архиватора заархвировать все выполненные ....
АтинаАссорти
АтинаАссорти
14.07.2020 21:52
Var s, n : longint; begin s : = -1; n : = 3; while 6*s*s*s*s*s 800*s*s*s do begin s : = s - 2; n : = n * 2 end; write(n - s) end.​...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота