Question

Постройте трассировочную таблицу выполнения программы Summa_1 для значения n=3

Program Summa_1;
Var E, a: Real; N,i: Integer;
Begin
Write('N='); Readln (N);
E:=0; i:=0; a:=1;
While i<=N DO
Begin
E:=E+a;
i:=i+1;
a:=a/i
End;
WriteLn('E=', E)
End.​