Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, делящихся на 3 или на 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число — количество чисел, делящихся на 3 или на 5.
ПАСКАЛЬ

Answer 1

Ответ:

var n, i, a, count:integer;

Begin

count:=0;

readln(n);

for i:=1 to n do begin

readln(a);

If (a mod 5 = 0) or (a mod 3 = 0) then count:= count + 1;

end;

write (count);

End.