Viết chương trình Pascal cho bài toán sau: Tìm số ước của một số N (N là một số nguyên dương được nhập vào từ bàn phím). GIÚP MÌNH VỚI
1 câu trả lời
program dem_uoc;
uses crt;
var n,i,d:integer;
begin
clrscr;
write('Nhap so nguyen duong n: '); readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 then d:=d+1;
write('So uoc la: ',d);
readln;
end.
