помогите составить программу на языке паскаль S=2+4+6...+n
Answers & Comments
therealcf2014
Var i,n,s:longint; begin Write('Введите четное значение последнего члена ряда: '); Readln(n); s:=0; for i:=1 to n div 2 do s:=s+2*i; Writeln('Сумма членов ряда равна ',s) end.
Тестовое решение: Введите четное значение последнего члена ряда: 50 Сумма членов ряда равна 650
Answers & Comments
i,n,s:longint;
begin
Write('Введите четное значение последнего члена ряда: ');
Readln(n);
s:=0;
for i:=1 to n div 2 do s:=s+2*i;
Writeln('Сумма членов ряда равна ',s)
end.
Тестовое решение:
Введите четное значение последнего члена ряда: 50
Сумма членов ряда равна 650