习x_5、计算下列算式的值：12+22+32+42+??+1002 （使用while语句） program x_5;
var k:integer;
s:longint; begin
s:=0; k:=12; while k<=1002 do begin
s:=s+k; k:=k+10; end;
writeln(’s=’,s); end.
习x_6、输入30个数，统计其中的正数、负数、零的个数。Program x_6;
Var i,x,a,b,c:integer; Begin
a:=0; b:=0; c:=0;
For i:=1 to 30 do Begin
Read(x);
if x>0 then a:=a+1
else if x=0 then c:=c+1 else b:=b+1; end;
writeln(’zs=’,a, ’fs=’,b, ’ling=’,c); end.
习x_7、写出下面算式的程序：s=1×3×5×7×??×49。（使用while语句） program s; var
n:integer; s:longint; begin
s:=1; n:=1; while n<=99 do begin
s:=s*n; n:=n+2; end;
writeln(s); end.
习x_8、打印下面的图形 ###
######### 5 ####### 4 ##### 3 ###
#
program x_7;
var m,n:integer; begin
writeln(‘###’:11);
for m:=5 downto 1 do begin
wirte(‘ ‘:10-m);
for n:=1 to 2*m-1 write(‘#‘)； end; writeln; end.
do 习x_9、编程找出满足下述关系的四位整数abcd：
(ab+cd)(ab+cd)=abcd。例如：2025，（20+25）*（20+25）=2025
program x_9; var
s,ab,cd:integer; begin
for s:=1000 to 9999 do begin
ab:=s div 100; cd:=s mod 100;
if sqr(ab+cd)=s then write(s:6); end; writeln; end.