Вывести ** экран первые 20 чисел Фибоначчи. Напишите программу ** языке Pascal и...

Question

Вывести на экран первые 20 чисел Фибоначчи. Напишите программу на языке Pascal и постройке блок схему (цикл с предусловием) ​

Answer 1

Ответ:

var

   a,b,c,i,n: integer;

begin

n:= 20;

   a := 0;

   write(a,' ');

   b := 1;

   write(b,' ');

   for i:=3 to n do begin

       write(a+b,' ');

       c := b;

       b := a + b;

       a := c

   end;  

readln ;

end.

---