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.
