Помогите пожалуйста решить задачу:перевести число... Опции

[drug]

а из какой точно? или из любой?

[Гость]

Помогите хоть кто-нибудь!

[Гость]

а из какой точно? или из любой?

из любой

[drug]

на

program sss;
function ToDec(n:string; radix:longint):longint;
var
    m, i: longint;
const
    digit: string[16]='0123456789ABCDEF';
begin
    m:=0;
    while (n[1]='0') and (length(n) > 1) do delete(n,1,1);
    for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
    ToDec:=m;
end;
var
n:string;
k,ss:longint;
begin
writeln('vvedite chislo ');
readln (n);
writeln('vvedite sistemu schisleniya v kotoroy eto chislo');
readln(ss);
k:=todec(n,ss);
writeln('chislo v 10ss: ');
writeln(k);

end.

кстати использован пост из faq

ыыыы сорь поздно заметил шо для тя сложно
по другомуя не знаю как...
скажы што это порсто ....
там ж простро строки и функции выж их проходили

Сообщение отредактировано: drug - 26.11.2007 20:57

[Oren]

Огромное тебе спасибо!!!Выручил!Успехов и удачи тебе в жизни!

[klem4]

ну и дурдом ... Закрыто.