Написать программу, которая находит сумму ряда 4, 8, 12, 16…. Количество элементов ряда вводится с клавиатуры.

free pascal

Объяснение:

var

 a, s, i : integer;

begin

 writeln('введите количество элементов : ');

 readln(a);

 s := 0;

 for i := 1 to a do

   s := s+4*i;

 writeln(s);

end.

sum = 0

mass = [s for s in range(4, (int(input('введите n: ')) + 1) * 4, 4)]

for i in range(len(mass)):

   sum += mass[i]

print(sum)

Объяснение: