irati
Опубликовано 6 лет назад по предмету Информатика от irati


дано целое число N больше 1, а также первый член а и разность D арифметической прогрессии сформировать и вывести массив размером n содержащих n первых членов данной прогрессии.

  1. Ответ
    Ответ дан ali07

    program xxx;

       var i, n : integer;

             a, d : real

                s: array[1..20] of real;

    begin

       write('введите N-');

       readln (n);

       write('введите а=');

       readln(a);

       write('введите d=');

       readln(d);

       s[1]:=a;

       for i:=2 to n do

         s[i]:=a+d;

       write('Арифметическая прогрессия:'); 

       for i:=1 to n do

            write(s[i]);

    end.

     

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц