программирование на языке Паскаль, очень надо вводится последовательность натуральных чисел, кол-во не более 10 тысяч, каждое число не может превышать 30 тысяч. Окончанием ввода является 0. Определите кол-во чисел кратных 5

Вопрос школьника по предмету Информатика

программирование на языке Паскаль, очень надо
вводится последовательность натуральных чисел, кол-во не более 10 тысяч, каждое число не может превышать 30 тысяч. Окончанием ввода является 0. Определите кол-во чисел кратных 5

Ответ учителя по предмету Информатика

Var

A:array[0..10000] of integer;

B,i:integer;

Begin

i:=0;

Read(B);

While B<>0 do

Begin

A[i]:=B;

i:=i+1;

Read(B);

End;

B:=0;

i:=0;

While A[i]<>0 do

Begin

if A[i] mod 5 = 0 then B:=B+1;

i:=i+1;

End;

Write(‘Количество чисел, кратных пяти: ‘,B);

End.