1\100多个零件 三个三个数多二个 五个五个数多3个 七个七个数多五个 请问至少多少个?

Program ex;
var
total,min:integer;
begin
min:=199;
For total:=100 to 199{100多个} do
If (total mod 3 =2) and (total mod 5=3) and (total mod 7=5) and

(total<min) then min:=total;
write(min);
end.

2\2-1000内的完数

Program ex1;
var
a,b,c:integer;
begin
for a:=2 to 1000 do
begin
c:=0;
For b:= 1 to a-1 do
If a mod b =0 then s:=s+b;
If a=c then begin write(a,'=',1);
for b:=2 to a-1 do
If a mod b = 0 then write('+',b) ;
writeln;
end;
end;
end.

3\输出

                                                   A

                                          A               B

                                A               B               C

                     .                                                      .

           A           B......................................... Y             Z

Program ex;
var
i,c,m:integer;
begin
for i:=1 to 26 do
begin
 for m:=26 to i do write(' ');
 for m:=1 to i  do
write(chr(m+96),'           ');
writeln;
end;
end.

                                            版权所有:森林家园PASCAL工作室 欢迎指正