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

Сколько существует четырёхзначных чисел кратных 3?

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Kotumi

23.12.2022 16:35

Нужно хоть что-нибудь 1)написать программу на языке программирования паскаль, вычисляющую гипотенузу и площадь прямоугольного треугольника по двум данным катетам. 2)заданы...

даниил853

23.12.2022 16:35

Информатика как из этого слава получить другие слова из этих букв?...

StasDvorchuk

18.06.2021 21:29

1)сколько бит информации несет сообщение о том что из колоды в 32 карты достали пику 2)проводятся две лотереи: 4 из 32 и 5 из 64 . сообщение о результатах какой из лотерей...

Awzida

18.06.2021 21:29

Дайте все ответы на игру конкурс инфознайка по информатике...

варвара176

21.01.2022 22:36

Дано кількість множників K. Знайти їх добуток. это програмирование питон пайтон 2∙5∙8∙11∙…...

virusvirus93

17.02.2021 05:42

напишите код по информатике на с++, для нахождения площади треугольника...

VovasuslovAUE

30.07.2020 10:30

Нужна ваша , очень , буду благодарна, если ...

Grooshka

28.11.2020 02:39

Напишите программу , БУДУ ОЧЕНЬ ВАМ БЛАГОДАРНА...

belokurserezhe

14.02.2022 00:30

Протабулировать функцию средствами электронной таблицы Excel. y=На промежутке [0...10] с шагом 0,4.Вычисления оформить в виде таблицы, отформатировать ее с автоформата...

РЕГИНА943

06.02.2020 18:43

Яничего не понимаю! составьте программу! арифметические действия над числами пронумерованы так: 1 – сложение, 2 – вычитание, 3 – умножение, 4 – деление. дан номер действия...

Ответ:

Mikhail55Rus

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 оценок)

Ответ:

sbux44

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 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку