Имеется код написанный на паскале, необходимо перевести - вопрос №14147605 от Софийкф 07.01.2022 18:48

Question

Информатика: Имеется код написанный на паскале, необходимо перевести его питон. 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.

Софийкф · Answer

Объяснение:n=0k=int(input( k= ))while k%10==0:    k=k//10while k 0:    if k%10==0:        n+=1    k=k//10print(n)...

Имеется код написанный на паскале, необходимо перевести его питон. 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.

Имеется код написанный на паскале, необходимо перевести его питон. 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.