「プログラム」について
タグ「プログラム」の検索結果
（1ページ目：全1問中1問～10問を表示）
私立 慶應義塾大学 2012年 第6問$a,\ b,\ c$を自然数とし，$1 \leqq a \leqq 10$，$c \leqq b \leqq a$とする．次のプログラムは$a^2+b^2+c^2$が平方数となる場合を求めるものである．解答欄に適切なものを入れよ．
$\mathrm{100 FOR A=1 TO 10}$
$\mathrm{110 FOR B=1 TO [(201)][(202)]}$
$\mathrm{120 FOR C=1 TO B}$
$\mathrm{130 FOR I=1 TO 2 * [(203)][(204)]}$
$\mathrm{140 LET S=A * A+B * B+C * C-I * I}$
$\mathrm{150 IF S=<0 THEN GOTO [(205)][(206)]}$
$\mathrm{160 NEXT [(207)][(208)]}$
$\mathrm{170 IF S<0 THEN GOTO [(209)][(210)]}$
$\mathrm{180 PRINT A; "**2+" ;B; "**2+" ;C; "**2=" ;I; "**2"}$
$\mathrm{190 NEXT [(211)][(212)]}$
$\mathrm{200 NEXT B}$
$\mathrm{210 NEXT A}$
$\mathrm{220 END}$
$\mathrm{100 FOR A=1 TO 10}$
$\mathrm{110 FOR B=1 TO [(201)][(202)]}$
$\mathrm{120 FOR C=1 TO B}$
$\mathrm{130 FOR I=1 TO 2 * [(203)][(204)]}$
$\mathrm{140 LET S=A * A+B * B+C * C-I * I}$
$\mathrm{150 IF S=<0 THEN GOTO [(205)][(206)]}$
$\mathrm{160 NEXT [(207)][(208)]}$
$\mathrm{170 IF S<0 THEN GOTO [(209)][(210)]}$
$\mathrm{180 PRINT A; "**2+" ;B; "**2+" ;C; "**2=" ;I; "**2"}$
$\mathrm{190 NEXT [(211)][(212)]}$
$\mathrm{200 NEXT B}$
$\mathrm{210 NEXT A}$
$\mathrm{220 END}$