profile
Опубликовано 5 лет назад по предмету Информатика от grigorydemyanenko

Напишите программу, вычисляющую и выводящую на экран 10 первых членов в последовательности Фибоначчи

  1. Ответ
    Ответ дан vlassovpel

    var a ,b,c,i: integer;

    begin

    a:=1;

    b:=2;

    c:=3;

    writeln('1');

    writeln('2');

    writeln('3');

    for i:= 1 to 10 do

     begin;

     c:=(a+b);

     

     writeln(' ',c);

     a:=(a+1);

     b:=(b+1);

     end;

     end.