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

Question

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

Answer 1

79

olegforex

21 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить