Переписать программу в питон 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.

Question

Информатика: Переписать программу в питон 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.

Elnarikys · Answer

n=0a=1while a != 0:    a = int(input( Введите а: ))    if a%3 == 0 and a%6 != 0: n+=aprint(n)Но вообще странная программа... Точно нет ошибок в задании?...

Переписать программу в питон 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.

Переписать программу в питон 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.