Question

2003年南海复赛试题 第二题 数列求和 Pascal编程，急！！！！！！！！

第二题 数列求和
问题描述：
简单数列是有规律排列的一些数，例如1,2,3,4,5,6,7就是这样的数列,这种数列中的后一个数总是比前一个数多或少一个相同的数，其实只要知道这种数列中的前三个数和最后一个数就可以写出数列中的所有的数。你的任务是根据给出的数列求出这个数列所有数的和.每个数列的前三个数和最后一个数从键盘输入。
输入输出样例1：
输入：1，2，3，7
输出：1＋2＋3＋…＋7＝28
输入输出样例2：
输入：-3，-1，1，5
输出：(-3)＋(-1) ＋1＋…＋5＝5
（说明：算式中只要求输出前三个数和最后一个数，中间的数用…代表，等式左边的负数要加上小括号）

Answer 1

{数据输入时用空格分隔而不是用逗号分隔}
var
	n1,n2,n3,nz,x,sum,step:longint;
	i,k:integer;
begin
	readln(n1,n2,n3,nz);
	step:=n2-n1;
	if n3-n2<>step then writeln('input numbers error .');
	if  (nz-n1) mod step<>0  then writeln('input numbers error .');
	k:=(nz-n1) div step;
	sum:=0;
	x:=n1;
	for i:=1 to k+1 do begin 
		if i<=3 then 
			if x<0 then write('(',x:0,')+') else write(x:0,'+');
		if i=k+1 then
			if x<0 then write('...+(',x:0,')') else write('...+',x:0);	
		sum:=sum+x;
		x:=x+step
	end;
		if sum<0 then write('=(',sum:0,')') else write('=',sum:0);
	writeln;	
end.	
	

追问

在吗

为什么没有满分