Вычислить сумму последовательности чисел Фибоначчи — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
INPUT "A="; A
  
F0 = 1
PRINT F0
F1 = 1
PRINT F1
SUM = 0
DO
F2 = F1 + F0
F0 = F1
F1 = F2
SUM = SUM + F2
PRINT F2
LOOP UNTIL SUM > A
  
PRINT "SUM="; SUM

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

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

Leave a Comment