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

      ExamBegin20

      На вход подаются три числа: целое число 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;