xzm2000 2009-12-24 20:19:00
点我顶贴
收藏
删除
program rq88；
var
a,b,i,c,g,x,y:longint；
begin
g:=0；
readln(a,b)；
for i:=a to b do
begin
x:=0；
for c:=1 to i-1 do
if i mod c=0 then
x:=x+c；
y:=0；
for c:=1 to x-1 do
if x mod c=0 then
y:=y+c；
if (y=i) and (i<x) then
inc(g)；
end；
write(g)；
writeln；
readln；
end.
我真想不通，竟然编译错误，用lazarus可以呀。