Напечатать последовательность чисел фибоначчи 1, 1, 2, 3, 5 и т.д., где каждое число равно сумме двух предыдущих: ровно n чисел.

program fibonacci; var  p, q, r, i, n: integer; begin  write('alphaeus asks: please enter n = ');   readln(n);   p : = 1;   writeln(p);   q : = 1;   writeln(q);   for i: =3 to n do begin      r : = p+q;       writeln(r);       p : = q;       q : = r  end; end.

program fibonacci; uses crt; var i, n: integer; {итерационный метод вычисления чисел фибоначчи}function fib_it(n: integer): integer; var a,b,c,i: integer; begin a: =1; b: =1; if (n=1) or (n=2) then fib_it: =1else begin            for i: =3 to n do                    begin                    c: =a+b                    a: =b;                   b: =c;                   end;         fib_it: =c;     end;  

end; {main program}begin    clrscr;     write('введите n: ');     readln(n);     for i: =1 to n do write(fib_it(i),' ');         readkey; end.

// pascalabc.net 3.4.2, сборка 1806 от 30.09.2018 // внимание! если программа не работает, обновите версию!

begin

  var l : = readseqinteger('вводите: ', readinteger('n=';

  l.println; // исходная

  var k : = l.orderdescending.skip(1).first; // после чего вставить

  var a : = readinteger('что вставляем? ');

  l.insert(l.indexof(k) + 1, a);

  l.println; // после вставки

  k : = l.max;

  var ai : = l.toarray.indexesof(t -> t = k).toarray;

  if ai.count > 1 then

  begin

    l.removeat(ai[1]);

    l.println; // после удаления, если оно было

  end;

  l : = l.sorteddescending.tolist;

  l.println // после сортировки

end.

польза от интернета .  

интернет облегчает жизнь многим людям. в работе человека он практичный и удобный, если раньше данная работа выполнялась в течение двух, а то и трех дней, то сегодня с мировой сети можно сделать всю работу всего за час.  

многие люди инвалиды могут теперь только с компьютера и наличии интернета выполнять работу дома и тем самым зарабатывать себе на жизнь.  

интернет так же выполняет познавательную роль, вы можете путешествовать по всему миру, не отходя от своего компьютера. перед вами открывается весь земной шар со своими райскими уголками. теперь не нужно тратить кучу денег и покупать различные энциклопедии, достаточно только открыть поисковую систему и прописать интересующий вас вопрос.  

конечно, нельзя не отметить и развлекательную функцию интернета. на сегодня существует множество онлайн игр, форумов по интересам и много другого.