OK數

gin to n begin

ok數來源於pascal題目

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

用簡單的pascal解法來做

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.
初學者可用