Перевод числа в двоичный код. Паскаль Написать программу перевода числа в двоичный код.
По дате
По рейтингу
uses crt; //эта короче и работает
var n:integer;s:String;
begin
clrscr;
readln(n);
while n>0 do begin
insert(chr(48+n mod 2),s,1);
n:=n div 2;
end;
writeln(s);
//readkey;
end.
uses crt;
begin
var num:integer;
var str:string;
str:='0';
num:=5;
while num>0 do begin
str:=char(ord('0')+(num mod 2))+str;
num:=num div 2;
end;
writeln(str);
end.
Вы должны знать алгоритм перевода - как это сделать на бумажке. А потом перепишите его на паскаль. Стыдно не вникать. Или не учить то, что преподают... Как вас занесло в программирование
Больше по теме
