перевести с паскаля на питон begin
var s := '1'*ReadLnInteger('n =');
s.Println;
repeat
var r := s.Length;
while s[r] = '0' do r -= 1;
s[r] := '0';
while r c='1') = 0;
end.

генж    1   07.02.2021 19:51    0