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

Question

ПО ПАСКАЛЬ… Помогите пожалуйста я пропустила эту тему (Составьте программу поиска первого числа Фибоначчи, большего m (m<1). Запуститепрограмму на выполнение…

Answer 1

66

kniffi

31 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: