Question

На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ко­ли­че­ство чисел, крат­ных 4. Количество вводимых чисел вводится с клавиатуры.

Answer 1

var c,b,v,r:integer;
begin
readln(c);
for b:=1 to c do
begin
readln(r);
If r mod 4 =0 then v:=v+1;
end;
writeln(v);
end.