Мы получили 1/10 всей информации т.к нам открыли 1 из 10-ти букв
S, a - должны быть целочисленными, а не вещественными.
<span>6 8 7 9 8 10 9 11 10 12 сначало +2, потом уменьшаем на -12 4 3 5 4 6 5 7</span>
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
Время1=60*1024*8бит/3072 бит/с=160 с
объем2=время*скорость=160с*256бит/с=40960 бит=5120 байт=5Кб