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

Question

Информатика

Валент

14 января, 18:03

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

+1

Ответы (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.