Question

For13°. Дано целое число N (> 0). Найти значение выражения
1.1 – 1.2 + 1.3 – …
(N слагаемых, знаки чередуются). Условный оператор не использовать.
ЧЕРЕЗ БЭЙСИК ЖЕЛАТЕЛЬНО

Answer 1

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