.......................................................
Контроль учащихся, распределение уроков
Var n,a:integer;
x,st:real;
begin
write('введите степень n ==> ');
readln(n);
write('введите вещественное число x ==> ');
<span>readln(x);
st:=x;
</span>for a:=1 to n-1 do begin
st:=x*st;
end;
writeln('степень ',n,' числа ',x,' = ',st);
end.
N= -3*(-3)=9
N=-2*(-2)=4
N=-1*(-1)=1
N=0*0=0
N=1*1=1
N=2*2=4
N=3*3=9
X=0+(9+4+1+0+1+4+9)=28
Вроде так
В 1 килобайте 1024 байта. В 1 мегабайте 1024 килобайта.
31мегабайт*1024=31744килобайт
31744*1024=32 505 856 байт
1 байт = 1 символ
32 505 856 символов