Задать вопрос
19 октября, 14:12

Дана арифметическая прогрессия из N членов. Число элементов N, 1-й элемент а1 и разность d задаются с клавитуры. Вывести все члены прогрессии на экран и вычислить сумму элементов прогрессии, значение которых меньше пяти. Решить задачу тремя способами. прошу помогите я буду очень благодарен.

+3
Ответы (1)
  1. 19 октября, 15:44
    0
    Var

    a: array [1 ... 255] of integer;

    i, n, d, a1: integer;

    begin

    writeln ('n, d, a1');

    read (n, d, a1);

    a[1]:=a1;

    for i:=2 to n do a[i]:=a[i-1]+d;

    a1:=0;

    for i: = 1 to n do if a[i]<5 then a1:=a1+a[i];

    writeln ('summa:', a1);

    for i:=1 to n do write (a[i], ' ')

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Дана арифметическая прогрессия из N членов. Число элементов N, 1-й элемент а1 и разность d задаются с клавитуры. Вывести все члены ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы