Вычислить 2/1!+3/2!+4/3!…+11/10!- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
s=0
FOR i=1 TO 10
 p=1
 FOR j=1 TO i
  p=p*j
 NEXT j
 s=s+(i+1)/p
NEXT i
s=0
PRINT "s=";s

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

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

Leave a Comment