Question

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

Answer 1

Ответ:

var

n, k, i, a: Integer;

begin

 n:=1000;

 k:=0;

 for i := 1 to 1000 do  

 begin

readln(a);

if a = 0 then

begin

 break;

end;

if (a <= 30000) and (a>0) and (a mod 5 = 0) then begin

   k:=k+1;

end;

end;

writeln(k);

end.