Bao đơn giản luôn ;):
Bản 1 có phần chú thích (nếu bạn cần):
uses crt;
var i,n,d:integer;
begin
clrscr;
write('n=');readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 {i la uoc cua n} then d:=d+1; {tang dem}
writeln(n,' co ',d,' uoc');
readln
end.
Bản 2 không có chú thích:
uses crt;
var i,n,d:integer;
begin
clrscr;
write('n=');readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 then d:=d+1;
writeln(n,' co ',d,' uoc');
readln
end.
Bản 3 dùng while:
uses crt;
var i,n,d:integer;
begin
clrscr;
write('n=');readln(n);
d:=0; i:=0;
while i<=n do
begin
i:=i+1;
if n mod i=0 then d:=d+1;
end;
writeln(n,' co ',d,' uoc');
readln
end.
