OK數

對於一個自然數 n，若能找到自然數 a、b 。

基本介紹

• 中文名：OK數
• 外文名：var m,n,i,a,b,t:longint;
• 來源：pascal題目
• 所屬分類：自然數

來源

使得 n=a×b+（a+b），則稱 n為一個OK數，如 5=1×2+（1+2），輸入m、n，找出m～n之間的所有OK數的個數。

解法

var m,n,i,a,b,t:longint;

f:boolean;

begin

readln(m,n);

t:=0;

for i:=m to n do begin

f:=false;

for a:=1 to i div 2 do

for b:=a to i div 2+1 do

if a*b+(a+b)=i then f:=true;

if f then t:=t+1;

end;

writeln(t);

readln;

end.

初學者可用