For13°. дано целое число n (> 0). найти значение выражения 1.1 – 1.2 + 1.3 – … (n слагаемых, знаки чередуются). условный оператор не использовать. через бэйсик желательно
CLS a: INPUT n IF n < 1 OR INT(n) <> n THEN GOTO a DIM a(n) a(1) = 1.1 s = a(1) FOR i = 2 TO n a(i) = (ABS(a(i - 1)) + .1) * (-1) ^ (i + 1) s = s + a(i) NEXT i PRINT s
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n THEN GOTO a
DIM a(n)
a(1) = 1.1
s = a(1)
FOR i = 2 TO n
a(i) = (ABS(a(i - 1)) + .1) * (-1) ^ (i + 1)
s = s + a(i)
NEXT i
PRINT s