Числа Фибоначчи на Pascal

Числа Фибоначчи.

Код на Pascal:

const n = 25;
 
var 
  a,b,c: integer;
  i: integer;  
 
begin
  a := 1;
  b := 1;
  write(a,' ',b,' ');
  for i := 3 to n do
  begin
    c := a + b;
    write(c,' ');
    a := b;
    b := c;
  end;
end.


Код на PascalABC.NET:

const n = 25;
 
begin
  var a := 1;
  var b := 1;
  write(a,' ',b,' ');
  for var i := 3 to n do
  begin
    var c := a + b;
    write(c,' ');
    a := b;
    b := c;
  end;
end.



Просмотров: 1428
10.02.2015, 09:56 -

Категория: Статьи » Программирование » Pascal