var
s:string;
c:char;
i,j:integer;
h:real;
begin
readln(s);
for i:=1 to (length(s)div 2) do begin
c:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=c;end;
writeln(s);
h:=ord(s[1])-48;
for i:=2 to length(s) do begin
for j:=1 to i-1 do 
h:=h+(ord(s[i])-48)*6;
end;
writeln(h);
end.

Добавлено через 1 час 4 минуты
Решил.

Pascal

var
s:string;
c:char;
i,j:integer;
h,p:real;
begin
readln(s);
for i:=1 to (length(s)div 2) do begin
c:=s[i]; s[i]:=s[length(s)-i+1]; s[length(s)-i+1]:=c;end;
h:=ord(s[1])-48;
for i:=2 to length(s) do begin
p:=1;
for j:=1 to i-1 do  
p:=p*6;
h:=h+p*(ord(s[i])-48); 
end;
writeln(h:0:0);
end.

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.11.2012, 18:27

Ответы с готовыми решениями:

Перевод натурального числа из 16 ричной в 10 тичную
У меня такой вопрос, можете объяснить для чего применяются в этой программе эти две строчки и что...

Перевод из 8-ричной системы счисления в 10-тичную
Перевести А8=2345.4 в А10

Перевод чисел из любой СС в 10-тичную
Можете написать код в javascript для перевода из любой системы счисления в десятичную(без...

Перевод из 16-тиричной системы счисления в 10-тичную
Помогите с функцией перевода числа из 16-тиричной системы счисления в 10-тичную

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.11.2012, 18:27

Помогаю со студенческими работами здесь

Выписать алфавиты 2-ичной, 5-ричной, 8-ричной, 16-ричной систем счисления
Выписать алфавиты 2-ичной, 5-ричной, 8-ричной, 16-ричной систем счисления.

2 ичная система счисления в 10 тичную! исправьте пожайлуста код!
Вот код: Function CDecVal(l As String) As Long Dim i As Integer, sum As Long Dim n As Integer S...

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

Перевод из десятиричной СС в шестнадцатиричную. Исправить код
Function f(x, k) As String x = InputBox Do While x f = x & k k = x Mod 16 If k >= 10...

Перевод из сантиметров в дециметры: исправить код
программа просто переводит из сантиметров в дециметры public interface Iperevod { int Dm{get;...

Перевод из 16-ричной СС в 10
Здравствуйте, есть функция: void calc(int num,int base) { if (num == 0) return; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх