Переведите код из Паскаля в Пайтон program Z51;
var a, sum: integer;
begin
readln(a);
sum := 0;
while a <> 0 do
begin
if (a mod 2 <> 0) and (a mod 3 = 0) then sum := sum + 1;
readln(a);
end;
writeln(sum)
end.

tanyaG0612    2   09.11.2021 02:07    4