Question

Написать программу, которая вычисляет сумму первых n членов ряда 1, 3, 5, 7, … . Количество суммируемых членов ряда задается во время работы программы.

Нужно написать программу на Паскале, с помощью цикла "for 1 to 5 do" и тд...

Answer 1

1, 3, 5, 7, ... - арифметическая прогрессия, в которой первый член a1=1 и разность d=7-5=5-3=3-1=2.

запишем формулу n члена прогрессии:

an=a1+d(n-1)=1+2n-2=2n-1, где n - номер члена последовательности.

Составляем программу:

var n,s,i: integer;

begin

readln(n);

s:=1;

for i:=2 to n do s:=s+2*i-1;

write('сумма: ',s);

end.