🚀 go-pugleaf

$B$+$Y!wElKLBg3X(B
$B%;%s%?!<;n83$NLdBj$,?7J9$K:\$j$^$7$?$M!#$G$O$=$3$+$i!D(B

-------------------------------------------------------

$B0J2<$N(B $B%j%9%H#A$H#B$=$l$>$l$K$D$$$F!"0J2<$NLd$$$KEz$($h!#(B

$B%j%9%H#A!%(B($B?t3X(BI.A $BBh#5Ld(B)
	10 INPUT N
	20 A=0
	30 B=1
	40 A=A+1
	50 B=B*2
	60 IF B<N THEN GOTO 40
	70 PRINT "A=";A," B=";B
	80 END

$B%j%9%H#B!%(B($B?t3X(BII.B $BBh#5Ld(B)
	110 INPUT "a=";A
	120 B=INT(A/2+1)
	130 FOR X=B TO A
	140 	Y=A*X/(2*X-1)
	150 	IF Y=INT(Y) THEN PRINT "y=";Y
	160 NEXT X
	170 END

(1) $B$3$l$i$N%j%9%H$O(B ANSI Minimal BASIC $B$KBP$9$k5,3J9gCW%W%m%0%i%`$H(B
$B$J$C$F$$$k$+!#5,3J9gCW$G$J$1$l$P!"9gCW$9$k$h$&:G>.8B$NJQ99$r;\$7$?(B
$B%j%9%H$r<($;!#(B

(2) $B$3$l$i$N%j%9%H$O(B ANSI Full BASIC $B$KBP$9$k5,3J9gCW%W%m%0%i%`$H(B
$B$J$C$F$$$k$+!#5,3J9gCW$G$J$1$l$P!"9gCW$9$k$h$&:G>.8B$NJQ99$r;\$7$?(B
$B%j%9%H$r<($;!#(B

------------------------------------------------------------------------------
 $B$+$Y(B@dais.is.tohoku.ac.jp                     $B#V#E#G#A(B $B#S#y#s#t#e#m#s(B MCMXCI
             $B!V<+J,$O%l!<%5!<$@$C$F$$$&$N$+$$!)(B $B$?$$$7$?$3$H$J$$$8$c$J$$$+!#!W(B
------------------------------------------------------------------------------