Задание:
ПО ПАСКАЛЬ… Помогите пожалуйста я пропустила эту тему (Составьте программу поиска первого числа Фибоначчи, большего m (m<1). Запуститепрограмму на выполнение…
Решение:
program noname; uses crt; varf,f1,f2,m: longint; beginclrscr; write ('m='); readln (m); f1: =1; f2: =1; while f <= m do beginf: =f1+f2; f2: =f1; f1: =f; end; writeln ('f=',f); end.
Знаете другой ответ?