//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр 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.
Обозначим основание системы счисления за х, и подставим х в формулу перевода в десятичную СС:
100(х)=1*х^2+0*x^1+0*x^0=x^2(10)
14(х)=1*х^1+4*x^0=x+4(10)
42(х)=4*х^1+2*x^0=4x+2(10)
т.к.
14(х)+42(х)=100(х)
то и в 10-чной СС это равенство будет верным:
x+4+4x+2=x^2
x^2-5x-6=0
Решаем обычное квадратное уравнение и находим
х1=6
х2=-1
Нам подходит только один корень х=6
Ответ: Эти числа указаны в СС с основанием 6
---------------------------------------
Можно решить и другим методом :
Исходя из набора используемых чисел делаем вывод, что основание СС >4.
Попробуем сложить числа 14 и 42 в их неизвестной СС так, чтобы в результате получилось 100
1 4
+ 4 2
------
1 0 0
Мы видим, что 4 и 2 в сумме дают 0. Это возможно только если следующий разряд состоит из 6 единиц, а значит СС имеет основание 6.
Ответ: 6
- трансляторы;
- среда разработки программ;
- библиотеки;
- отладчики;
- редакторы связи.
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
1101100
573
1C9
11001100
242
C7
10111
1114
430
240