過去ログ

ゴンとも

#45545

自己レスですいません十進Basic でソースコードが少し短くなり

for c=1 to 99
for b=c+1 to 99
for a=b+1 to 99
if a-b=b-c and b+c>a then let s=s+1
next a
next b
next c
print s
end

XMaxima では3行でした。

j:0$for c:1 thru 99 do
for b:c+1 thru 99 do
for a:b+1 thru 99 do (if a-b=b-c and b+c>a then j:j+1)$j;

エンター押して　1584・・・・・・(答え)

豊川市　　 11月24日（木） 1:32:45　　 MAIL:fttnm528@ybb.ne.jp 　　45558

過去問題一覧へ戻る