Question

ПОМОГИТЕ СРОЧНО ПАСКАЛЬ
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа.

Answer 1

var

n,count,i:integer;

begin

count:=0;

readln(n);

for i:=1 to n do

 begin

   readln(n);

   if (n mod 4 = 0) and (n mod 7 <> 0) then

     inc(count);

 end;

writeln(count);

end.