Найдите ошибку (Паскаль)
В задании нужно было найти сумму чисел e^1+e^2+...e^n
program upr1;
var i,n:integer;
e,s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
e:= power (e,i);
s:= s+e;
writeln (s);
end.
В задании нужно было найти сумму чисел e^1+e^2+...e^n
program upr1;
var i,n:integer;
e,s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
e:= power (e,i);
s:= s+e;
writeln (s);
end.
More Questions From This User See All
Answers & Comments
var i,n:integer;
s,exp,e: real;
begin
readln (n);
s:=0;
exp:=e;
begin
e:= power (e,i);
for i:= 1 to n do
s:= s+e;
end;
writeln (s);
end.
var i,n:integer;
s: real;
begin
readln (n);
s:=0;
for i:= 1 to n do
s:= s+exp(i);
writeln (s);
end.