Напишите программу, которая в последовательности - вопрос №12916344 от mogilevser 13.07.2022 07:38

Question

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

mogilevser · Answer

var n, i, a, count:integer;Begincount:=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....