Войти Регистрация Спроси ai-bota

Сколько существует четырёхзначных чисел кратных 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 Оформи подписку