Перевод числа в различные СС

KotPes

Вводим 10 число, оно переводит его в 2 и в 16-ричную
2 ответа

KotPes

Uses crt;
Var n:longint;
function from10toR(x:longint;R:word):string;
var i,ost:longint;
    s,st,chislo:string;
begin
 s:='';chislo:='';
 repeat
  ost:=x mod R;
  x:=x div R;
  if ost>9 then st:=chr(ord('A')-10+ost)
           else str(ost,st);
  s:=s+st;
 until x=0;
 for i:=1 to length(s) do
 chislo:=chislo+s[length(s)-i+1];
 from10toR:=chislo;
end;
Begin
 clrscr;
 writeln('Vvedite N  ');
 read(n);
 writeln('2-e chislo  ',from10toR(n,2));
 writeln('16-e chislo  ',from10toR(n,16));
End.