Перевести чсло из одной системы счисления в десятиричную. Пожалуйста помогите,очень надо. И как можно скорее. Буду очень признателен. Спасибо.

FAQ для кого был написан, осмелюсь спросить?

Ну извини, плиз. Могу создать тему в факе. Только решите пожалуйста!

Там, по ссылке, для тех, кто в Т-34, решение твоей задачи.

Слушай дай пожалуйста ссылку.

Общие вопросы по математике.

Спасибо за ссылку, но там дано как перевести из десятичной в какую-либо другую, а мне надо из какой-либо другой в десятичную.

Слова "и наоборот" у тебя не отображаются? Глюк форума, наверное?

Ты следующую процедуру по ссылке (ToDec) удосужишься посмотреть?

А есть какое-нибудь попроще решение?Для 10 класса?

Есть. 250 руб. Номер счета отправлю на e-mail.

Не, за деньги нет.
Ну пожалуйста, напишите хоть кто-нибудь эту задачу бесплатно,а? Сильно надо.

Ну, нет так нет.

Заходи суда помогу:
BaikalSoft

Volvo, ты можешь написать мне,пожалуйста, задачу, которую я запросил выше (в решении для 10 класа) бесплатно? Просто, похоже что ты мастер в паскале и для тебя не составит труда решить такую простую задачу(в отличии от некоторых:-)

Volvo, ты можешь написать мне,пожалуйста, задачу, которую я запросил выше (в решении для 10 класа) бесплатно? Просто, похоже что ты мастер в паскале и для тебя не составит труда решить такую простую задачу(в отличии от некоторых, да Ozzя?:-)

Volvo, ты можешь написать мне,пожалуйста, задачу, которую я запросил выше (в решении для 10 класа) бесплатно? Просто, похоже что ты мастер в паскале и для тебя не составит труда решить такую простую задачу(в отличии от некоторых, да Ozzя?:-)

На слабо берете, уважаемый?

Я прошу чисто по-человечески помочь с задачей. Тебе так сложно написать её, сделать доброе дело?

Я прошу чисто по-человечески помочь с задачей. Тебе так сложно написать её, сделать доброе дело?

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

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

из любой

на

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

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

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

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