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
Вычитание выполнено в шестеричной системе счисления.
Объяснение:
Мы видим в данном выражении цифры до 4. Из этого следует, что система счисления использует не менее 5 цифр. То есть, она как минимум - пятиричная. Будем подбирать по порядку системы счисления и вычислять их значения.
Пятиричная система счисления:
1. Переводим в десятичную систему счисления:
102 = 25 * 1 + 5 * 0 + 1 * 2 = 25 + 0 + 2 = 27
14 = 5 * 1 + 1 * 4 = 5 + 4 = 9
2. Вычисляем в десятичной системе счисления:
27 - 9 = 18
3. Переводим в пятиричную систему счисления:
18 = 33
Вывод: данная система счисления не подходит.
Шестеричная система счисления:
1. Переводим в десятичную систему счисления:
102 = 36 * 1 + 6 * 0 + 1 * 2 = 36 + 0 + 2 = 38
14 = 6 * 1 + 1 * 4 = 6 + 4 = 10
2. Вычисляем в десятичной системе счисления:
38 - 10 = 28
3. Переводим в шестеричную систему счисления:
28 = 44
Вывод: данная система счисления подходит.
УДАЧИ! ОБРАЩАЙТЕСЬ!
