Запись оставлена щ 27.02.2017 в 11:20
запустить | скачать | новая запись
- program str1;
- uses crt;
- function dec2bin(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;
- dec2bin:=s;
- end;
- var a: integer;
- begin
- clrscr;
- writeln('Vvedite chislo:');
- readln(a);
- writeln('poluchenoe chislo:',dec2bin(a));
- readln;
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.