Найти сумму первых K четных чисел.

Question

Феоктист

14 октября, 06:41

+4

Ответы (2)

Знаете ответ?

Николична · Answer 1

var k: integer;

begin

write ('Введите число: ') ; read (k) ;

writeln ('Сумма первых ', k, ' чётных чисел = ', (k+1) * k) ;

end.

Люцина · Answer 2

Var K, m, I:integer; Begin Read (k) ; If k mod 2=1 then k:=k-1; For I: = 1 to (k div 2) doBegin M:=m+i*2; End; Writeln (m) ; End.