Lập trình pascal cơ bản nha nên dùng longint nếu có thể
Đề: Đếm số lượng ước số dương của n
Lập trình pascal cơ bản nha nên dùng longint nếu có thể Đề: Đếm số lượng ước số dương của n
By Caroline
By Caroline
Lập trình pascal cơ bản nha nên dùng longint nếu có thể
Đề: Đếm số lượng ước số dương của n
uses crt;
var n,dem,i:longint;
begin
clrscr;
readln(n);
dem:=2;
for i:=2 to (n div 2) do
if n mod i = 0 then dem:=dem+1;
writeln(dem);
readln;
end.
uses crt;
var n,i,d:longint;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then d:=d+1;
writeln(d);
readln;
end.