![](https://csdnimg.cn/release/download_crawler_static/87748374/bg4.jpg)
s:=s+c;
a:=b;
b:=c;
end;
writeln(s:9:4);
end.
12. 打印出小九九乘法口诀表。
var
i,j:integer;
begin
writeln;
for i:=1 to 9 do
begin
for j:=1 to i do write(i:1,'*',j:1,'=',i*j:1,' ');
writeln;
end;
end.
var i,j:integer;
begin
for i:=1 to 9 do
begin
for j:=1 to i do
write(i,'*',j,'=',i*j,' ');
writeln;
end;
end.
13. 满足 A3+B3+C3=ABC 的数字称为水仙花数,求所有的 100-999 之间的水仙花
数。
var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a++10*b+c
then writeln(a,b,c);
end.
14. 判断输入的一个正整数是否是素数。
var n,i:integer;