СРОЧНО 100 Балов ПЕРЕПИШИТЕ НА ЯЗЫК ПИТОНА
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.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.