Помогите составить программу на языке паскаль

S=2+4+6 ... + n

Question

Информатика

Петаня

20 февраля, 13:16

Помогите составить программу на языке паскаль

S=2+4+6 ... + n

+1

Ответы (2)

Знаете ответ на вопрос?

Стелла · Answer 1

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

Эсмеральда · Answer 2

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.

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

Помогите составить программу на языке паскаль

S=2+4+6 ... + n