Система счичления на Паскале!

[Колян]

Народ дайти плиз код, которая переводит числа с одной системы счисления в другую, например из двоичной в десятеричную и обратно, тоесть перевол в любую систему, тоько до 10ой! И кто знает, второй код дайти плиз, это с помощью div и mod

[_Dmitry]

А искать по форуму пробовали? Тема была много раз...

[Makarov]

Воспользовался поиском и нашел!!!
Смотреть здесь
Смотреть здесь
Смотреть здесь

[Stepler]

Вот накалякал код. Сначала перевод с 10 в 2 систему, потом с 2 в 10 систему, в итоге получаем исходное число!

uses crt;
var rez:string;
num,i:integer;
begin
clrscr;
writeln('Vvedite chislo');
read(num);
{Вот этот участок отвечает за перевод ичсла с 10 в 2 систему}
while(num<>0)do
 begin
 rez:=chr((num mod 2)+48)+rez;
 num:=num div 2;
 end;
{////////////////////////////////////////////////////////////}
 writeln(rez);
 num:=0;
 {Вот этот участок отвечает за перевод ичсла с 2 в 10 систему}
 for i:=1 to length(rez) do
  begin
  num:=num+(ord(rez[i])-48)*trunc(exp((length(rez)-i)*ln(2)));
  end;
 {///////////////////////////////////////////////////////////}
  writeln(num);
end.
{(c) Stepler}

Особой сложности нет, все довольно просто.