Переписать программу в питон Var a, n:
integer;
begin
n:=0;
repeat
readln(a);
if (a mod 3 = 0) and (a mod 6 <> 0) then
inc(n, a);
until a = 0;
writeln(n);
end.

Gulnarhidayetova    3   04.02.2021 19:53    0