Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ученик221603
13.12.2021 09:49 •
Информатика
Сколько существует четырёхзначных чисел кратных 3?
Показать ответ
Ответ:
lrydg2363
07.07.2020 01:30
Var i,x:integer;
begin
for i:=1000 to 9999 do
if i mod 3 = 0 then inc(x);
end.
Вроде бы всё.
0,0
(0 оценок)
Ответ:
vitalesss
07.07.2020 01:30
Var k,i:integer;
Begin
k:=0;
For i := 1000 to 9999 do
If i mod 3 = 0 then
k:=k+1;
Write(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Tanya6164
03.09.2021 07:25
написать код (язык c++)! Даны упорядоченные массивы чисел {ai}(i=1,2...n), {bj}(j=1,2...10) {ck}(k=1,2...m), а также числа P, Q и 8. Включите в массив {ai} число...
настя7595
23.12.2021 21:18
Выражение A = планет A + a планет А+ a = планета Оарифметическое ологическое Остроковое ответить...
Kybikowskatana
07.01.2020 02:41
Если в цепочке if-elif-elif- истинным является несколько условий, то какой именно срабатывает из них? 1) первое 2) последнее 3) никакое...
lizashtatnova
05.05.2020 12:53
1. Lazarus терезесінің негізгі бөліктерін атап беріңдер. 2. Компоненттер бөлімі неше беттен тұрады? 3. Standard бөлімінде орналасқан батырмалар қызметін атаңдар....
Alikhan666
30.04.2021 09:41
Дан список. Какой индекс имеет последний элемент списка A? А={12} * 7 A= {10} * 9...
Настенька192002
19.06.2022 02:41
кто в 1877 году изобрёл первый прибор для записи и воспроизведения звука - фонограф?...
magamusaev201
06.05.2022 00:03
Черепахе был дан для исполнения следующий алгоритм повтори 20 [направо 45 вперёд 20 направо 45]...
Сашечка11
11.03.2020 04:39
Приведите пример к указанным типам данных.(мне нужно только одно...
AlinaTishka
31.12.2021 11:23
Отметьте на координатной плоскости точки, координаты которых заданы в двоичной системе счисления, и последовательно соедините отмеченные точки, тем самым получив...
toshakalashnik
14.05.2021 16:47
Написать программу, которая в последовательности целых чисел вычисляет произведение трехзначных четных чисел, оканчивающихся на 2. Признаком окончания ввода чисел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=1000 to 9999 do
if i mod 3 = 0 then inc(x);
end.
Вроде бы всё.
Begin
k:=0;
For i := 1000 to 9999 do
If i mod 3 = 0 then
k:=k+1;
Write(k);
end.