2
3
4
5
6
7
8
9
10
11
12
13
14
15
program Project1;
var
sum: integer; { Переменная для хранения значения суммы ряда}
n: integer; { Переменная для хранения значения количества членов ряда}
i: integer; { Вс переменная для организации цикла}
begin
write('Введите значения количества членов ряда N: ');
Readln(n);
sum:= 0;
for i:= 0 to n-1 do
sum:= sum + 25-(i*3); { Вычисление суммы ряда}
Writeln('Сумма ряда: ',sum);
Readln;
end.
Объяснение:
