Question

Найти количество положительных чисел, кратных 7 (информатика 9 класс):
дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
Пожалуйста, кто в этом разбирается, напишите программу, нужна пятёрка. Есть ещё две задачи, дам хорошие баллы.

Answer 1

var i,M,K,N:integer;

begin

Readln(N);

K:=0;

for i:=1 to N do

begin

readln(M);

if M mod 7 = 0

then

begin

K:=K+1;

end;

end;

write(K);

end.