Блог учителя Информатики

Решение задачи ExamBegin23


Условие задачи:

На вход подаются три целых числа: N (> 2), A и B (все числа расположены в одной строке). Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих. Каждое число выводить на новой строке.


uses PT4Exam;

const
  R = 100;

var
  m: array[1..R] of integer;
  n, a, b, i, j: integer;

begin
  Task('ExamBegin23');
  Read(n, a, b);
  m[1] := a; m[2] := b;
  for i := 3 to n do
    for j := 1 to i - 1 do
      m[i] := m[i] + m[j];
  for i := 1 to n do 
    Writeln(m[i]);
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

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