Ответ(ы) на вопрос:
Гость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.
Гостьvar k: integer;
begin
write ('Введите число: '); read(k);
writeln ('Сумма первых ',k, ' чётных чисел = ',(k+1)*k);
end.
Не нашли ответ?
Похожие вопросы