Дано n натуральных целых чисел, которые вводятся пользователем с клавиатуры. Составить...

Question

Дано n натуральных целых чисел, которые вводятся пользователем с клавиатуры. Составить программу, определяющую количество на¬туральных целых чисел, не превышающих 100 и крат¬ных 5

Answer 1

Ответ:

Program p1;

Var a, i, n, k: integer;

Begin

Write('Введите количество чисел последовательности: ');

readln(n);

k:=0;

For i:=1 to n do begin

readln (a);

if (a mod 10 =5) and (a < 100) then k:=k+1;

end;

Writeln('Количество чисел кратных 5 - ',k);

End.