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

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