Ответы
Ответ дал:
0
Program test;
Var n,i:integer;
Begin
Readln (n);
i:=2;
while i<=n do
begin
write(i,' ');
i:=i+2;
end
End.
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
9 лет назад