Question

pascal 程序设计 计算1+1×2+1×2×3+1×2×3×4+1×2×3×4×5 + ……= ？ 输入输出格式与样例： 输入：3

Answer 1

简单写下：
var n,ans,add,i:longint; //数据先按这么大的来了
begin
readln(n); //读入n值
if n<=0 then begin writeln('WRONG'); exit; end; //对于非法值的出口
ans:=0; add:=1;
for i:=1 to n do
begin
add:=add*i; //累乘器（由于每次的前几项都与前式相同，直接乘以i即可）
ans:=ans+add; //累加器
end;
writeln(ans); //出解
end.

输入输出格式与样例：
样例输入1：
3
样例输出1：
9
样例输入2：
-1
样例输出2：
WRONG

Answer 2

var s:real;
i,n:Integer;
begin
writeln('input n:');
readln(n);
s:=0;i:=1;
for i:=1 to n do
begin
s:=s+1/i;
writeln('n=',n);
end;
Writeln('s=',s);
end.
首先 循环里面 要用integer 变量。
这个代码可以通过

Answer 3

var s,i,n,t:longint;
begin
assign(input,'文件名.in');reset(input);
assign(output,'文件名.out');rewrite(output);
s:=0;t:=1;
readln(n);
for i:=1 to n do begin
t:=t*i;
s:=s+t;
end;
writeln(s);
close(output);
end.

Answer 4

var
x,y,s,i:integer;
begin
readln(x); 这步输入你要加几次
s:=1; y:=0; 这步乘积、和初始化
for i:=1 to x do
begin
s:=s*i； 循环下乘积
y:=y+s; 累加求和
end;
writeln(y);
end.
我偷个懒，文件创立那些东西就你自己写了，希望帮上忙了