Составить программу в паскале для вычисления суммы степеней (1/1)^n+(1/2)^n++(1/n)^n через вложенный цикл.

Var k,sum:real;n,i,j:integer;beginReadln(n);for i:=1 to n do begink:= 1/i;for j:=1 to n do begink:= k * k;end;sum:= sum + k;end;writeln('sum =', sum);end.

1) Документ - это письменное подтверждение какого-либо события или факта

2) Текстовый документ - это представленная на бумажном, электронном или ином материальном носителе информация в текстовой форме

3) Раздел, строка, страница(это не точно)

4) Рассказ, письмо, справочник

5) Раздел - это часть текста, разделы могут включать в себя подразделы.

6) Текст, таблицы, рисунки (зависит это от того, какого типа документ)

7) Удобство редактирования, лёгкость копирования, лёгкость передачи по сетям

8) Электронная книга - это компактное устройство, которое предназначено для отображения текстовой информации, представленной в электронном виде

9) В электронных книгах существует поиск по тексту

10) С текста человек может передать свои мысли, чувства и эмоции

Var
   A,R:real;
   i,L,z:integer;
   S:string;
Begin
Read(S);
L:=Length(S);
i:=1;
R:=0;
While (S[i]in['0'..'9'])and(i<L) do
   Begin
   R:=R*10+StrToInt(S[i]);
   i:=i+1
   End;
While i<L do
   Begin
   Case S[i] of
      '+':z:=0;
      '-':z:=1;
      '*':z:=2;
      '/':z:=3;
   End;
   i:=i+1;
   A:=0;
   While (S[i]in['0'..'9'])and(i<L) do
      Begin
      A:=A*10+StrToInt(S[i]);
      i:=i+1
      End;
   if i=L then A:=A*10+StrToInt(S[L]);
   Case z of
      0:R:=R+A;
      1:R:=R-A;
      2:R:=R*A;
      3:R:=R/A;
   End;
   End;
WriteLn('R = ',R);
End.