Помогите, пожалуйста! Нужно написать программу для АВС паскаль. Программа должна переводить обыкновенные числа в двоичную систему счисления. Заранее большое спасибо! 87 баллов!!
Answers & Comments
klim576
Var n,m:integer; s:string; begin write('n = '); readln(n); m:=n; s:=''; while m>0 do begin if m mod 2=0 then s:='0'+s else s:='1'+s; m:=m div 2; end; writeln(s); end.
Answers & Comments
s:string;
begin
write('n = ');
readln(n);
m:=n;
s:='';
while m>0 do
begin
if m mod 2=0
then s:='0'+s else s:='1'+s;
m:=m div 2;
end;
writeln(s);
end.
Пример:
n = 115
1110011
Verified answer
Vara: integer;
function p(x: integer): string;
var
s: string;
begin
s := '';
while x > 0 do
begin
s := chr(ord('0') + x mod 2) + s;
x := x div 2;
end;
p := s;
end;
begin
readln(a);
writeln(p(a));
end.