Відповідь:1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
readln(m);
if (m mod 5 = 0) and (m mod 10 = 0) then
inc(k)
end;
writeln(k);
end.
Відповідь:1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n, i, k, m: integer;
begin
k := 0;
readln(n);
for i := 1 to n do
begin
readln(m);
if (m mod 5 = 0) and (m mod 10 = 0) then
inc(k)
end;
writeln(k);
end.