Var i,a,b,c,kol:integer;
begin
for i:=100 to 900
do begin
a:=i div 100;
b:= (i div 10) mod 10;
c:= i mod 10;
if (a+b+c) mod 2=0
then kol+=1;
end;
writeln(kol);
end.
Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 <> 0) and (i mod 3 = 0) then
begin
write(i);
write(' ');
end;
end;
end.
Ну, pdf влазит, 4000 байт = 4кб