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

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

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

↓

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

kanyuka

22.02.2020 18:32

Дан массив размера n. найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. найденные номера выводить в порядке их...

cemikhadam

10.12.2021 00:20

Когда в растовом изображении появляется ступенчатый эффект...

petechkaPetrovPetor

20.01.2022 22:36

Параграф 3.4 Программирование разветвляющихся алгоритмов . Задание: Ввести три целых числа.Выяснить встречаются ли среди них чётные числа. Если встречаются,то вычислить...

volchica232005

10.11.2020 17:53

Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. паскаль var a,b,a,k,l: integer; begin f: =(1-x)*(x-9)+4 end; begin a: =-16; b:...

lemyana2017

10.11.2020 17:53

Составить и записать программу: вычисляющу по 2ум значения сторон прямоугольника его площадь и периметр (результат программы должен быть оформлен в виде: площадь прямоугольника...

oksana341

10.11.2020 17:53

Сканируется цветное изображение размером 10x15 см. разрешающая сканера -600x600 dpi, глубина цвета - 3 байта. какой информационный объём будет иметь полученный графический...

QWERTY12345P

05.12.2021 13:57

Сканируется цветное изображение размером 2x3 дюйма. разрешающая сканера -600x600 dpi, глубина цвета - 8 битов. какой информационный объём будет иметь полученный графический...

supermichail29

27.03.2021 21:14

По инфе составите программу для вычисления площади окружности в паскале (вводим радиус)...

mdior10

18.07.2020 23:54

5 задание ! Microsoft Access...

fooorl

21.01.2020 23:52

Как можно заменить команду inc(k) в паскале?...

Ответ:

sashatims

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

Ответ:

Tegebotik

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 Оформи подписку