Program todec; uses crt; function detob(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; detob:=s; end; var a: integer; begin clrscr; writeln('Введите число:'); readln(a); writeln('Полученное число:',detob(a)); readln; end.
uses crt;
function detob(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;
detob:=s;
end;
var a: integer;
begin
clrscr;
writeln('Введите число:');
readln(a);
writeln('Полученное число:',detob(a));
readln;
end.