Для заданных натуральных n, m (n, m >= 3) проверить: FnFm + Fn+1 Fm+1= Fn+m+1, где Fi — числа Фибоначчи — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
INPUT n
INPUT m
DIM f(m + n + 1)
f(1) = 1
f(2) = 1
FOR i = 3 TO m + n + 1
    f(i) = f(i - 1) + f(i - 2)
NEXT
IF f(n) * f(m) + f(n + 1) * f(m + 1) = f(n + m + 1) THEN PRINT "yes" ELSE PRINT "no"

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

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

Leave a Comment