Предмет: Информатика,
автор: Bountyqw
ПО ПАСКАЛЬ..Помогите пожалуйста я пропустила эту тему(((
Составьте программу поиска первого числа Фибоначчи, большего m(m<1).Запустите программу на выполнение..
Ответы
Автор ответа:
0
program noname;
uses crt;
var
f,f1,f2,m:longint;
begin
clrscr;
write('m=');
readln(m);
f1:=1;
f2:=1;
while f<=m do begin
f:=f1+f2;
f2:=f1;
f1:=f;
end;
writeln('f=',f);
end.
Похожие вопросы
Предмет: История,
автор: Аноним
Предмет: Экономика,
автор: Аноним
Предмет: Литература,
автор: anzhelikacham
Предмет: Алгебра,
автор: Sportsmenчик