ЕГЭ 2021. Информатика. Программирование. Как решать задачи ExamBegin 1-80?

На вход подаются три числа: целое число N ( 1) и вещественные числа A и D – соответственно первый член и разность арифметической прогрессии (каждое число вводится с новой строки). Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A + D, A + 2·D, A + 3·D, … . Все числа выводить в одной строке, для каждого числа отводить 7 экранных позиций.

uses PT4Exam;

const

  R = 100;

 var

  m: array[1..R] of real;

  n, i: integer;

  a, d: real;

 begin

  Task('ExamBegin20');

  Read(n, a, d);

  for i := 1 to n do

  begin

    m[i] := a;

    Write(m[i]:7:2);

    a := a + d;

  end;

end.

Другое решение 20 задачи.

uses PT4Exam;

 var

  n, i: integer;

  a, d: real;

begin

  Task('ExamBegin20');

  Read(n, a, d);

  for i := 1 to n do

  begin

    Write(a:7:2);

    a := a + d;

  end;

end.

Формирование массивов

ExamBegin21

На вход подаются три числа: целое число N ( 1) и вещественные числа A и D – соответственно первый член и знаменатель геометрической прогрессии (каждое число вводится с новой строки). Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A·D, A·D², A·D³, … . Каждое число выводить на новой строке.

uses PT4Exam;

const R = 100;

var

m: array[1..R] of real;

n, i: integer;

a, d: real;

begin

Task('ExamBegin21');