)) для заданного натурального числа n вычислить значение его факториала n! =1*2**n

var a: array [1..1000] of integer;

fac,i,n: integer;

begin

readln(n);

fac: =1;

for i: =1 to n do begin

a[i]: =i;

end;

for i: =1 to n do begin

fac: =fac*a[i];

end;

writeln(fac);

end.

1) a: =a*a; //2-я степень     a: =a*a; //4-я 2) a: =a*a; //2-я     b: =a*a; //4-я     a: =a*b; //6-я 3) b: =a*a; //2-я     c: =b*b; //4-я     b: =c*b; //6-я     a: =a*b; //7-я 4)  a: =a*a; //2-я степень     a: =a*a; //4-я     a: =a*a; //8-я 5) b: =a*a; //2-я степень     b: =b*b; //4-я     b: =b*b; //8-я     a: =a*b; //9 6)  b: =a*a; //2-я степень     a: =b*b; //4-я     a: =a*a; //8-я     a: =a*b; //10 7)  b: =a*a; //2-я степень     c: =b*b; //4-я     d: =c*c; //8-я     c: =d*b; //12     a: =a*c; //13 8) b: =a*a; //2     c: =b*a; //3     d: =c*c; //6     e: =d*d; //12     a: =c*e; //15 9) b: =a*a; //2     c: =b*b; //4      d: =c*c; //8     e: =d*d; //16     b: =e*c; //20     a: =b*a; //21 10) b: =a*a; //2       c: =b*b; //4       d: =c*c; //8        e: =d*d; //16       b: =e*d; //24       a: =b*c; //28 11) a: =a*a; //2       a: =a*a; //4       a: =a*a; //8       a: =a*a; //16       a: =a*a; //32        a: =a*a; //64

На данный момент компьютер имеет важную роль в жизни каждого человека . но у него есть и плюсы и минусы . плюсы состоят в том что ,с компьютера мы можем найти нужную нам информацию в интернете ,мы можем общаться с людьми ,можем играть ,развлекаться, смотреть смешые ролики ,писать научные работы , развиваться .минусы состоят в том что ,компьютер не то и хорошо действует на организм человека .если слишком долго проводить свое время у компьютера ,то ваше зрение будет по тихоньку портится .порой резко может заболеть голова . появляется зависимость ,которая плохо влият на человека ,отнимает массу свободного времени . я провожу у компьютера мало времени,только на все самое нужное .я считаю это важным открытием для человечества .главное соблюдать правила ,и проводить определенное колличество времени около него.