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

Question

Информатика

Фарит

31 марта, 22:26

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

+4

Ответы (1)

Знаете ответ?

Теребила · Answer 1

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.