СОСТАВЛЕНИЕ ЗАДАЧИ (задачи «наоборот») 2.1. var n,i,a,k: integer;
begin
readln(n);
k := 0;
for i := 1 to n do begin
readln(a);
if (a mod 3 = 0) and(a mod 10 = 2)
then k := k + 1;
end;
writeln(k)
end.

Lounges    2   30.11.2020 23:29    4