Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4.
Ответы
Ответ дал:
0
var
a, k: longint;
begin
read(a);
k := 0;
while (a <> 0) do begin
if (a div 1000 >= 1) and (a div 1000 <= 9) and (a mod 4 = 0) then
inc(k);
read(a);
end;
writeln(k);
end.
a, k: longint;
begin
read(a);
k := 0;
while (a <> 0) do begin
if (a div 1000 >= 1) and (a div 1000 <= 9) and (a mod 4 = 0) then
inc(k);
read(a);
end;
writeln(k);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад