в паскале 8 класс
К вводится с клавиатуры?
составить программу паскаль, да
с операторами фор
наверное

Ответы и объяснения

2013-11-14T23:07:25+04:00

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,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.
  • SkyBy
  • главный мозг
2013-11-14T23:12:42+04:00
var k: integer;
begin
write ('Введите число: '); read(k);
writeln ('Сумма первых ',k, ' чётных чисел = ',(k+1)*k);
end.
дело в том, что мне нужно с оператором фор, извините, что сразу не указала
Цикл While и цикл For практически одинаковы. В задании указано использовать именно цикл for?
да