var n,m,i,k:integer; c:char;
begin
// 1
write('n, m: ');
readln(n,m);
k:=0;
for i:=n to m do
begin
write(i,' - ',chr(i),' ');
k:=k+1;
if k mod 3=0 then writeln;
end;
// 2
write('n: ');
readln(n);
writeln(n,' ',chr(n));
// 3
write('c: ');
readln(c);
writeln(c,' ',ord(c));
end.
Пример:
n, m: 40 60
40 - ( 41 - ) 42 - *
43 - + 44 - , 45 - -
46 - . 47 - / 48 - 0
49 - 1 50 - 2 51 - 3
52 - 4 53 - 5 54 - 6
55 - 7 56 - 8 57 - 9
58 - : 59 - ; 60 - <
n: 100
100 d
c: {
{ 123
Чтобы найти это, нужно было перевести это "число", состоящее из букв в десятичное число. В десятичной системе отсчёта мы используем цифры от 0 до 9. Если взять одиннадцатиричную, то 10-ой цифрой будет буква A. И так далее...
По этому принципу: Q - 26, U - 30, E - 14, N - 23.
Далее по правилу перевода в десятичную систему нужно умножить число, соответсвующее букве, на число, равное n-ричности (например, если система шестнадцатиричная, то умножаем на 16), возведённое в степень, равную порядковому положению первого числа - 1. Например, в данном слове QUEEN Q = 26, оно 5 слева на право. Пусть, система будет шестнадцатиричной. Тогда: 26*16^4.
Дальше, из условия следует: "в некоторой системе счисления число из 9 цифр для запоминания было равно QUEEN и основание системы было наибольшее из возможных для данного формата номера телефона."
Для поиска правильного основания нужно проверять по первому числу. Правильное основание - 78. Проверяем: 26*78^4=96 239 14 56. Девять цифр, всё верно. По такому же принципу можно найти значения для остальных букв:
U=30*78^3=14236560 (Здесь уже не важно, сколько цифр, мы будем складывать полученные числа), E=14*78^2=85176, E=14*78^1=1092, N=23*78^0=23.
Теперь просто складываем и получаем: 962391456+14236560+85176+1092+23= 976714307-ответ.
