zadach397.BAS

{* Задача397 *}

REM basic

' Составить программу вычисления N элементов ряда y=85-80+75-70+...


CLS
INPUT "Vvedite kol-vo chlenov ryada: ", n
 f = -1: g = 90
For i = 1 To n
  f = -f
  g = g - 5
  s = s + g * f
Next
PRINT "Summa:"; s
End