Помогите!

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

(Паскаль)

Question

Камилла

7 июля, 19:47

+1

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