//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке
Program Test;
const Size = 19;
Var i, tmp: integer; Str, Resultat: string;
Begin
Str := 'yoonmin_in_my_heart';
for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;
Writeln(Resultat);
End.
При переводе из десятично системы счисления мы делим на цифру системы счисления в которую переводим.
При переводе из двоичной в 16-ую мы отделяем по четыре числа начиная справа,далее мы смотрим по готовой таблице какие числа. В 8-ую тоже самое только отделяем по 3 цифры.
Вот если что таблица по которой мы переводим:
0-0000
1-0001
2-0010
3-0011
4-0100
5-0101
6-0110
7-0111
8-1000
9-1001
10-1010 A
11-1011 B
12-1100 C
13-1101 D
14-1110 E
15-1111 F
Ну и при переводе из 16-ой в 2-ую мы так же смотрим на таблицу.
При переводе в 10-ую СС мы в верхнем регистре выставляем разряды и слева на права умножаем цифру на систему счисоения водведенную в степень выставленого регистра.
<span> в двоичной= 10</span>000<span>111
в восьмеричной=</span><span>207
шестнадцатеричной =</span><span> 87</span>
//PascalABC.NET 3.2 сборка 1318
Var
a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.
Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064