33

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

don 12 февраля 2023

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

категория: информатика

66

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.

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

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...