Напишите решение желательно с блок схемой var n, a, i, k:integer;
Begin
read(n);
k:=0;
for i:=1 to n do
begin
read(a);
if (a mod 4 = 0) and (a mod 3 <> 0)
then k:=k+1;
end;
writeln(k);
end
входные данные:
5
32
12
28
48
4
​

JAHGH    1   27.05.2021 04:04    0