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

Array6. Даны целые числа $$N (\gt 2)$$, $$A$$ и $$B$$. Сформировать и вывести целочисленный массив размера $$N$$, первый элемент которого равен $$A$$, второй равен $$B$$, а каждый последующий элемент равен сумме всех предыдущих.

Решение:

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

begin
  Write('N:');
  Readln(N);
  Write('A:');
  Readln(a[1]);
  Write('B:');
  Readln(a[2]);

  for i:=3 to N do
   begin
    a[i]:=0;
    for i2:=1 to i-1 do a[i]:=a[i]+a[i2];
   end;

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

program Array6;

var

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

N,i,i2:Integer;

begin

Write('N:');

Readln(N);

Write('A:');

Readln(a[1]);

Write('B:');

Readln(a[2]);

for i:=3 to N do

begin

a[i]:=0;

for i2:=1 to i-1 do a[i]:=a[i]+a[i2];

end;

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

end.

или

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

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

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

program Array6;

var

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

N,i:Integer;

begin

Write('N:');

Readln(N);

Write('A:');

Readln(a[1]);

Write('B:');

Readln(a[2]);

a[3]:=a[1]+a[2];

for i:=4 to N do a[i]:=a[i-1]*2;

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

end.

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

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

Bronislav

28.04.2018 в 14:28

begin var n:=10; var (a1,a2):=(1,1); var l:=lst(a1,a2); foreach var x in range(3,n) do l.Add(l.Sum); l.Println; end.

1
2
3
4
5
6
7
8

begin
  var n:=10;
  var (a1,a2):=(1,1);
  var l:=lst(a1,a2);
  foreach var x in range(3,n) do
    l.Add(l.Sum);
  l.Println;
end.

Ответить

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

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

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

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