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

Тема в разделе "Информатика", создана пользователем loko, 23 фев 2010.

  1. loko

    loko New Member

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

    oFF-LinE New Member

    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.
     
    oFF-LinE, 23 фев 2010
    #2

Поделиться этой страницей

Наша группа