Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nosorpg02
14.02.2021 20:37 •
Информатика
Сколько существует четырёхзначных чисел кратных 3?
Показать ответ
Ответ:
Абвгдежз1234567890
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 оценок)
Ответ:
boom1980
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 оценок)
Популярные вопросы: Информатика
Golovagolovin
15.12.2020 16:15
Разведчик кодирует секретные сообщения, расставляя крестики и нолики в ячейки таблицы. всего он может закодировать 512 сообщений. сколько ячеек в таблице у разведчика?...
petrakovatatya
15.12.2020 16:15
Дано целое число. если оно кратно 5, то вывести на экран сообщение: «да» и уменьшить число в 5 раз. в противном случае вывести на экран сообщение «нет» и при этом число увеличить...
настасимммаа
10.09.2020 23:23
Василькові відомо, що святий Миколай починає розвозити подарунки коли стемніє, а закінчує – коли світає. Йому цікаво скільки часу Миколай матиме для того щоб роздати всім подарунки....
Микаэла111
17.08.2021 10:11
Пример ввода: longint char string Пример вывода: s1 : string; s2 : longint; s3 : char;...
Анастасия11111127564
05.03.2023 11:20
Установите соответствия между графиком квадратичной функции и алгоритмом построения. у=(х+2)²-1 у=(х-2)²+1 Смещение параболы y=x^2 на 2 единичных отрезка влево и на 1 единичных...
ElizavetaArtLove13
18.04.2021 21:43
3). Как сложились отношения усуней с Китаем? (дескриптор:объясняет отношения усуней ссоседним государствомКитаем)...
sabrinairnfd
05.04.2021 03:05
Химия 7 класс білімінді тексер 97 бет...
saigafarovatn
29.05.2021 20:08
Көмектесиндерш отнемм бжб 4сынып Казак тили 3токсан...
mnadezhkin
29.05.2021 20:08
Блин,люди у меня сор((...
lolagrigoreva
30.07.2020 18:30
Напишите объснительную записку от имени Золушки о том, почему она так быстро убежала с бала.В тексте используйте глаголы с безударными личными окончаниями...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.