Помогите!

Напишите программу, которая в последовательности натуральных чисел определяет количество трехзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введенных чисел, неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: количество трехзначных чисел, кратных 4.

(Паскаль)

Question

Альвина

5 декабря, 08:38

+4

Ответы (1)

Знаешь ответ?

Доната · Answer 1

Var A, k:integer;

Begin

k:=0;

Repeat

Read (A);

if (A>99) and (A<1000) and (A mod 4 = 0) then k:=k+1

Until A = 0;

WriteLn (k);

End.