Числа Фибоначчи на Pascal
Числа Фибоначчи.
Код на Pascal:
Код на PascalABC.NET:
Код на 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.
10.02.2015, 09:56 -
Категория: Статьи » Программирование » Pascal