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