Bài 8:

Var n,d:Longint;
 Begin
   Readln(n);
   d:=0;
   While n<>0 do
    Begin
     If n mod 2 = 0 then d:=d+1;
     n:=n div 10;
    End;
   Write(d);
  Readln;
 End.

Bài 9:

Var n,d,i:Longint;
 Begin
   Readln(n);
   d:=0;
   While n<>0 do
    Begin
     For i:=2 to Trunc(Sqrt(n mod 10)) do
      If  (n mod 10) mod i = 0 then
       Begin
        d:=1;
        Break;
       End;
     If d=0 then Writeln(n mod 10);
     d:=0;n:=n div 10;
    End;
  Readln;
 End.

 Bài 10:

Var n,i:Longint;
    d:Real;
 Begin
   Readln(n);
   d:=0;i:=0;
   While n<>0 do
    Begin
      If n mod 2 <> 0 then
       Begin
        d:=d+n mod 10;
        i:=i+1;
       End;
      n:=n div 10;
    End;
  If i=0 then Write('-1')
   Else Write(d/i:3:3);
  Readln;
 End.

Bài 11: 

Var n,i:Longint;
 Begin
  Readln(n);
  For i:=1 to Trunc(Sqrt(n)) do
   Begin
    If n mod i=0 then
     Begin
      Writeln(i);
      If i<>n div i then Writeln(n div i);
     End;
   End;
 Readln;
End.

Bài 8:

program bai_giai;
uses crt;
var n,d,a:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    d:=0;
    while n<>0 do
        begin
            a:=n mod 10;
            if a mod 2=0 then d:=d+1;
            n:=n div 10;
        end;
    write(d);
    readln;
end.

Bài 9:

program bai_giai;
uses crt;
var n,a:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    while n<>0 do
        begin
            a:=n mod 10;
            if (a=2) or (a=3) or (a=5) or (a=7) then writeln(a);
            n:=n div 10;
        end;
    readln;
end.

Bài 10:

program bai_giai;
uses crt;
var n,a,t,d:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    t:=0; d:=0;
    while n<>0 do
        begin
            a:=n mod 10;
            if a mod 2=1 then
                begin
                    t:=t+a;  d:=d+1;
                end;
            n:=n div 10;
        end;
    if d=0 then write('-1') else write(t/d:0:3);
    readln;
end.

Bài 11:

program bai_giai;
uses crt;
var n,i:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    for i:=1 to n do
        if n mod i=0 then writeln(i);
    readln;
end.