Написать в Паскале Дано действительное число х, натуральное число n. Вычислить:
Answers & Comments
65536
Var sum:real; n:integer; x,factorial,multiplier:real; begin readln(x,n); factorial:=1; multiplier:=1; for n:=1 to n do begin factorial*=n; multiplier*=x; sum+=multiplier/factorial; end; writeln(sum); end.
Answers & Comments
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
factorial*=n;
multiplier*=x;
sum+=multiplier/factorial;
end;
writeln(sum);
end.