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

Question

Информатика

Веселина

20 марта, 13:12

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

+3

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