Имеется код написанный на паскале, необходимо перевести его питон. var
k,n:longint;
begin
readln(k);
while k mod 10=0 do
k:=k div 10;
while k>0 do
begin
if k mod 10=0 then inc(n);
k:=k div 10;
end;
writeln(n);
end.

rolleck    3   19.10.2020 10:27    0