Ответы
Ответ дал:
0
var
n,i,sum:Integer;
Begin
Read(n);
for i:=1 to n do
begin
if (i mod 2=0) then sum:=sum+i;
end;
Writeln(sum);
end.
n,i,sum:Integer;
Begin
Read(n);
for i:=1 to n do
begin
if (i mod 2=0) then sum:=sum+i;
end;
Writeln(sum);
end.
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад