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

257

273

Посмотреть ответы 2

Ответы на вопрос:

АнастасияКот26

Информатика

4,4(35 оценок)

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.