ТутРешу.Ру

ПО ПАСКАЛЬ… Помогите пожалуйста я пропустила эту тему

Задание:

ПО ПАСКАЛЬ… Помогите пожалуйста я пропустила эту тему (Составьте программу поиска первого числа Фибоначчи, большего 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.




Знаете другой ответ?

Отправить свой ответ