ПЕРЕПИШИТЕ НА ЯЗЫК ПИТОНА var n, s, k, g: integer;

begin

s:=0;

readln(n);

for k:=1 to n do

begin

readln(g);

if (g mod 3 = 0) then

s:=s+1;

end;

writeln(s);

end.

Question

Информатика: ПЕРЕПИШИТЕ НА ЯЗЫК ПИТОНА var n, s, k, g: integer; begin s:=0; readln(n); for k:=1 to n do begin readln(g); if (g mod 3 = 0) then s:=s+1; end; writeln(s); end.

lydmilagerasim · Answer

s = 0 n = int(input()) for i in range(1,n+1):    g = int(input())    if g % 3 == 0:        s += 1 print(s)...

ПЕРЕПИШИТЕ НА ЯЗЫК ПИТОНА var n, s, k, g: integer; begin s:=0; readln(n); for k:=1 to n do begin readln(g); if (g mod 3 = 0) then s:=s+1; end; writeln(s); end.

Популярные вопросы

ПЕРЕПИШИТЕ НА ЯЗЫК ПИТОНА var n, s, k, g: integer;

begin

s:=0;

readln(n);

for k:=1 to n do

begin

readln(g);

if (g mod 3 = 0) then

s:=s+1;

end;

writeln(s);

end.