Предыдущая публикация
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
Следующая публикация
Нет комментариев