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

zikov1995123 zikov1995123    3   16.05.2020 17:13    0

Ответы
romchik228666 romchik228666  14.10.2020 20:48

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика