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

Question

Эммануилыч

27 мая, 05:42

+2

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