Составить программу вычисления и выдачи на печать суммы( или произведения) N бесконечного числового ряда: y=-20+15-10+5-0+….- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
DEFLNG A-Z
CLS
INPUT "Vvedite N:", N
Plus = 20: Znak = -1
 FOR i = 1 TO N
  S = S + Plus * Znak
  Plus = Plus - 5: Znak = -Znak
 NEXT
PRINT "Summa ryada:"; S

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment