Виконати алгоритм:
1. Записати чотирицифрове число.
2. Надати змінній х значення 0.
3. Повторити 4 рази
1. узяти останню цифру останнього записаного числа.
2. додати її до значення змінної х.
3. відкинути останню цифру останнього записаного числа і записати отримане число

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

 

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.

 

 

 

       На мое мнение информатика затрагивает все сферы деятельности, поскольку прогресс в компьютерной сфере не стоит на месте, с каждым годом он становится актуальней для всех сфер, так как применяются в обширном круге деятельности. Выполнение логических операций, упрощение действий с приложений, 3d моделирование и другое. Всегда развивается.а в какой степени - так это везде по-разному. 
       Что касается основных составных частей информатики, их три:
1.Технические средства.
2. программное обеспечение.
3 алгоритмическое обеспечение.
       Направление информатики:
1.технически-инженерное архитектуры вычислительного комплекса. 2.математическое обеспечение.
3.Чисто научное (алгоритмическое).