Электронная тетрадь Забродина Всеволода: (2)

четверг, 28 апреля 2016 г.

var i,n,s:integer;
begin
readln(n);
for i:=1 to n do
if i mod 2=0 then
writeln(i);
readln;
end.