A - 00
Б - 01
В - 10
Г - 11
Б А В Г Б А
01 00 10 11 01 00
Число на выходе после кодирования - 10010110100
Чтобы перевести в 8-ричную сиссему счисления, воспользуемся триадами
2 8
000 0
001 1
010 2
011 3
100 4
101 5
110 6
111 7
Идем с конца числа, разбивая на тройки:
10-010-110-100
Каждой тройке соответствует число в 8чной системе счисления, заменяем:
10-010-110-100
2 2 6 4
Ответ: 2264
Var a,b,c,U,R:longint;beginread (U,R);write(U/R) ;end.
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Program n1;
var a: array[1..5] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
end.
_________________________