Перевод числа из четверичной системы счисления в десятичную.

[Асичка]

Pascal... Перевод числа из четверичной системы счисления в десятичную. Спасибо

[Sciv]

Delphi. Выбор из базы данных разнотипных записей в одну сводную таблицу с последующим анализом результатов. Пожалуйста!

[Mad_Cat]

base:=1; sum:=0;
while x4>0 do
begin
sum:=sum+(x4 mod 10)*base;
base:=base*4;
x4:=x4 div 10;
end;