Размещено 3 года назад по предмету
Информатика
от xxxfireflyxxx
Найти ошибку в программе:
Условие: Даны целые числа N (> 2), A и B.
Сформировать и вывести целочисленный массив размера N,
первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.
Подсказка: d[3] := A + B; d[i]:=d[i-1]*2;
var
d: array[1..100] of real;
i, N,A,B: integer;
begin
read(N,A,B);
d[1]:=A;
d[2]:=B;
for i := 3 to N do
begin
d[i]:=A+B+d[i-1];
write(d[i],' ');
end;
end.