Question

Помогите составить программу на языке паскаль S=2+4+6...+n

Answer 1

Var s, i, n: integer;
begin
read(n);
i:=2;
write('S = ');
while (i<=n) do
begin
s:=s+i;
i:=i+2;
end;
writeln(s);
end.

Answer 2

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