' MS-DOS QBasic 1.0
DIM y AS DOUBLE
CLS
INPUT "n=", n
y = 0
FOR x = 1 TO n
y = y + 1 / x ^ 3
NEXT x
PRINT "Y="; y
В системе программирования Pascal ABC выполните проверяемое задание cif2 для исполнителя робот (закрасить клетки, у которых свер
ху или снизу есть стена) (рис. 3.46). Положение стен и длина коридора могут быть различными
1 ответ:
Читайте также
' MS-DOS QBasic 1.0
DIM y AS DOUBLE
CLS
INPUT "n=", n
y = 0
FOR x = 1 TO n
y = y + 1 / x ^ 3
NEXT x
PRINT "Y="; y