var a:array[1..100] of integer;
n,i,p:integer;
begin
readln(n);
i:=1;
while n>1 do
p:=n mod 2;
a[i]:=p;
n:=n div 2;
i:=i+1;
end;
a[i]:=n;
for p:=i downto 1 do
write(a[p]);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array[1..100] of integer;
n,i,p:integer;
begin
readln(n);
i:=1;
while n>1 do
begin
p:=n mod 2;
a[i]:=p;
n:=n div 2;
i:=i+1;
end;
a[i]:=n;
for p:=i downto 1 do
write(a[p]);
end.