20 REM Язык Quick Basic 4.030 REM Числа Фибоначчи - 240 REM Задача 83.350 DIM a AS LONG, b AS LONG, c AS LONG60 a = 1: b = 170 c = a + b80 PRINT a, b, c90 a = b: b = c100 IF c < 1500000000 THEN GOTO 70110 END
программирование ардуино, распберри, и для компа
:Юрий Казекин
10 REM p5
20 REM Язык Quick Basic 4.0
30 REM Числа Фибоначчи - 2
40 REM Задача 83.3
50 DIM a AS LONG, b AS LONG, c AS LONG
60 a = 1: b = 1
70 c = a + b
80 PRINT a, b, c
90 a = b: b = c
100 IF c < 1500000000 THEN GOTO 70
110 END