Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.

Question

Информатика

Африкан

4 апреля, 02:42

Написать программу, которая вычисляет сумму первых n целых положительных четных чисел.

+2

Ответы (1)

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

Корнеля · Answer 1

Var n, i, k, s:integer;

Begin

write ('n=') ; readln (n) ;

s:=0; k:=0; i:=2;

while k
begin

s:=s+i;

k:=k+1;

i:=i+2;

end;

writeln ('s=', s) ;

End.