Написать программу в ! число в двоичной системе счисления, введенное пользователем программы, преобразовать в десятичное число.

Var a: string; i,a1,ar: integer; b: real; begin readln(a); b: =0; for i: =1 to length(a) do  begin  val(a[length(a)-i+1],a1,ar);   b: =b+a1*exp((i-1)*ln(2));   end; writeln('b=',b); end. 

ответ:

ропор и топор

объяснение:

представим что имеем дело с 4-ичной системой счисления { 0 - о, 1 - п, 2 - р, 3 - т }. в таком случае вышенаписанный ряд можно представить в такой виде:

1. () = 0 в 10ичной сс

2. (1) = 1 в 10ичной сс

3. (2) = 2 в 10ичной сс

4. (3) = 3 в 10ичной сс

5. (00010) = 4 в 10ичной сс

исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.

1.

530 / 4 = 132 (2 остаток)

132 / 4 = 33 (0 остаток)

33 / 4 = 8 (1 остаток)

8 / 4 = 2 (0 остаток)

530(10) = 20102 (4)

замена: ропор

2.

786 / 4 = 196 (2 остаток)

196 / 4 = 49 (0 остаток)

49 / 4 = 12 (1 остаток)

12 / 4 = 3 (0 остаток)

786(10) = 30102(4)

замена: топор

Var     a,k,s,m: integer;     p: real; begin write('введите натуральное число: '); readln(a); k: =0; s: =0; p: =1; while a> 0 do     begin     m: =a mod 10;     if m = 3 then k: =k+1     else           begin           if m > 5 then s: =s+m;           if m > 7 then p: =p*m;           end;     a: =a div 10;     end; writeln('k = ',k); writeln('s = ',s); writeln('p = ',p); end. var     a: integer;     max,min,m: byte; begin write('введите натуральное число: '); readln(a); max: =0; min: =10; while a> 0 do     begin     m: =a mod 10;     if m< min then min: =m;     if m> max then max: =m;     a: =a div 10;     end; writeln('min = ',min); writeln('max = ',max); end.