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.

Answer 2

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.

Answer 3

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

Answer 4

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.

Answer 5

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