Question

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

Answer 1

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.