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

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

Популярные вопросы: Информатика

Englismen

27.07.2020 08:35

8. Із чого можуть складатися формули електронних таблиць? показати за до схеми...

Morij007

12.09.2021 03:55

Сравните единицы измерения...

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 бөлімінде орналасқан батырмалар қызметін атаңдар....

zoeves

28.11.2020 13:18

Какой объем памяти требуется для хранения цифрового аудиофайла с записью звука высокого качества (4бит 5гц), при условии что время звучания состовляет 1 секунду?...

Alikhan666

30.04.2021 09:41

Дан список. Какой индекс имеет последний элемент списка A? А={12} * 7 A= {10} * 9...

Настенька192002

19.06.2022 02:41

кто в 1877 году изобрёл первый прибор для записи и воспроизведения звука - фонограф?...

аььарпашишки

08.09.2022 00:13

Дано пятизначное целое число, найти цифры этого числа. если один и последняя цифра равны, то найти их сумму. если они не равны, то найти их произведение. Если 2,...

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

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