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

Задание:

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

Решение:

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.

Знаете другой ответ?

Отправить свой ответ