Информатика, вопрос задал Polina39 , 10 лет назад

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

Ответы на вопрос

Ответил andrfk
0

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.

Ответил andrfk
0
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.
Ответил SkyBy
0
Вот что выдаёт Pascal - 1 ошибок
Нельзя изменять значение переменной цикла внутри этого цикла.
Ответил andrfk
0
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.
Ответил SkyBy
0
var k: integer;
begin
write ('Введите число: '); read(k);
writeln ('Сумма первых ',k, ' чётных чисел = ',(k+1)*k);
end.
Новые вопросы