cần tài liệu pascal cơ bản đến nâng cao

[Hữu Đăng]

em mới vô chuyên tin, nhưng tin chưa cứng ( vì thi đầu vào là toán) , nay em xin các bậc tiền bối các kinh nghiệm cùng với các tài liệu hay từ cơ bản đến nâng cao ...

nhân tiện nhờ mấy anh chỉ giúp bài này :
cho số n nguyên dương . a) đếm số chữ số của n ( em nghĩ là div 10 cho đến khi = 0 nhưng chưa rõ trình bày, hay có cách nào hay hơn ko )
b) tìm số các chữ số đảo ngược vs chư số n
c) đếm số lượng ước số dương của n
d) đếm số chữ số 0 tận cùng
hết.........____________________________________ ______

[Fjzer]

Nếu bạn muốn code thì đây:

[Fjzer]

program huu_dang;
ues crt;
var i,n,j,k,l,d,dd:integer;
s,st:string;
begin
clrscr;
write('Nhap so n:');readln(n);
{cau a:}
str(n,s);
writeln('So chu so cua ',n,' la: ',length(s));
writeln;
st:='';
for i:=length(s) downto 1 do
st:=st+s[i];
{cau c:}
val(s,m,l);
d:=0;
for i:=1 to m do
if m mod i=0 then d:=d+1;
writeln('So luong uoc nguyen duong cua ',n,' la:',d);
writeln;
{cau d:}
dd:=0;
for i:=1 to length(st) do
if (st[1]=0)and(st[i]=0) then dd:=dd+1;
writeln('So chu so 0 tan cung la: ',dd);
readln
end.

[Fjzer]

Còn câu b chưa hiểu lắm !

- - - Updated - - -

Có gì thắc mắc thì cứ gửi tin nhắn cho mình.