Решаем задачи Абрамян на Паскале. Array5

Array5. Дано целое число $N (\gt 2)$ . Сформировать и вывести целочисленный массив размера $N$ , содержащий $N$ первых элементов последовательности чисел Фибоначчи

$F_K: F_1 = 1,F_2 = 1,F_K = F_{K-2} + F_{K-1}, K = 3, 4, …$ .

Решение:

program Array5;

var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  a[1]:=1;
  a[2]:=1;
  for i:=3 to N do a[i]:=a[i-2]+a[i-1];

  for i:=1 to N do writeln(i,' : ',a[i]);
end.

program Array5;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N:');

Readln(N);

a[1]:=1;

a[2]:=1;

for i:=3 to N do a[i]:=a[i-2]+a[i-1];

for i:=1 to N do writeln(i,' : ',a[i]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 1

Bronislav

29.04.2018 в 12:03

begin var n:=10; var f1:=1; var f2:=1; var ar:=SeqGen(n,f1,f2,(x,y)->x+y).ToArray; ar.Println; end.

1
2
3
4
5
6
7

begin
  var n:=10;
  var f1:=1;
  var f2:=1;
  var ar:=SeqGen(n,f1,f2,(x,y)->x+y).ToArray;
  ar.Println;
end.

Ответить

Решаем задачи Абрамян на Паскале. Array5

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ