1. Информатика
  2. Сколько существует четырёхзначных

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

chernoglazka970 chernoglazka970    1   07.06.2019 05:10    4

Ответы
adilukanova adilukanova  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.

Вроде бы всё. 
ПОКАЗАТЬ ОТВЕТЫ
А1А2А3А А1А2А3А  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nikitin021 nikitin021  23.04.2020 14:47
Алг сложение 1/цел A,M,P нач ввод A ввод P M:=A+P вывод P кон 2/алг сложение цел A,M,P нач ввод A ввод M P:=A+M вывод P кон 3/алг сложение цел A,M,P нач ввод A ввод M P=A+M...
AzamatAmangaliev1 AzamatAmangaliev1  26.07.2021 12:03
Памагите плз под клавиатурой черная полоса и там стрелка и рисунок клавиатуры на Gboard. Как это убрать....
Julia5415613614 Julia5415613614  26.07.2021 11:06
Новый маршрут для трекинга Сейчас самое время планировать новые трекинговые маршруты. Опишем холмистую местность массивом из n чисел. Высота i-го холма равна hi. Маршрут должен...
ТахминаЖамалдинова ТахминаЖамалдинова  26.07.2021 09:57
Выбрать фрагмент программы на языке программирования Паскаль, в котором вычисляется значение функции: 1)if X –5 then begin if X 5 then Y:=0 else Y:=1; end; 2)if X –5 then if...
tatiana158 tatiana158  15.07.2019 00:10
Решить в паскаль найдите колличество чётных чисел...
Ala012447 Ala012447  15.07.2019 00:10
Внекоторой компании у каждого сотрудника, кроме генерального директора, есть ровно один непосредственный начальник. также известно, что начав с любого сотрудника компании,...
Ник0090 Ник0090  15.07.2019 00:10
Две ноги сидели на трех, а когда пришли четыре и утащили одну, то две ноги, схватив три, бросили их в четыре, чтобы четыре оставили одну...
Сhubby Сhubby  04.05.2020 14:40
РЕБЯТ Тут такая проблема ,когда я делаю захват игры через ОБС либо СтримЛабс ОБС, игра тупо вылетает,Что делать? P.S. Игра ту которую я захватывал, это майнкрафт, запускал...
Петя1134 Петя1134  30.08.2019 13:10
Синоптики измеряют температуру воздуха ежедневно в течение четырех недель и записывают результаты измерений в таблицу. -12 -16 -26 -20 -16 -18 -25 -26 -29 -32 -23 -30 -21 -23...
Зариама08 Зариама08  30.08.2019 13:10
Решить хотя бы что-то.. №1 в программе используется одномерный целочисленный массив а с индексами от 0 до 9. ниже представлен фрагмент программы, в котором значения элементов...

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