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

Question

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

Comments

Дополните задание.

---

в паскале 8 класс

---

К вводится с клавиатуры?

---

составить программу паскаль, да

---

с операторами фор

---

наверное

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.

Comments

Var
K,m,I:integer;
Begin
Read(k);
For I:= 2 to k do
Begin
M:=m+i;
I:=I+2;
End;
Writeln(m);
End.

---

Ваша программа не работает.

---

Var
K,m,I:integer;
Begin
Read(k);
For I:= 2 to (k-1)do
Begin
M:=m+i;
I:=I+2;
End;
Writeln(m);
End.

---

Вот что выдаёт Pascal - 1 ошибок
Нельзя изменять значение переменной цикла внутри этого цикла.

---

Var
K,m,I:integer;
Begin
Read(k);
If k mod 2=1 then
For I:= 2 to (k-1)do
Begin
M:=m+i;
I:=I+2;
End;
Else
For I:= 2 to k do
Begin
M:=m+i;
I:=I+2;
End;
Writeln(m);
End.

---

Var
K,m,I:integer;
Begin
Read(k);
If k mod 2=1 then k:=k-1;
For I:= 1 to (k div 2) do
Begin
M:=m+i*2;
End;
Writeln(m);
End.

Answer 2

var k: integer;
begin
write ('Введите число: '); read(k);
writeln ('Сумма первых ',k, ' чётных чисел = ',(k+1)*k);
end.

Comments

дело в том, что мне нужно с оператором фор, извините, что сразу не указала

---

Цикл While и цикл For практически одинаковы. В задании указано использовать именно цикл for?

---

да