Cho 1 số tự nhiên n, hãy cho biết các ước số dương của n
2 câu trả lời
program uoc;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap so nguyen duong n: '); readln(n);
if n<>0 then write(1,' ');
for i:=2 to n div 2 do if n mod i=0 then write(i,' ');
readln end.
program uocduong;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap so nguyen duong n: '); readln(n);
write('Cac uoc duong cua ',n,' la: ');
for i:=1 to n do
if n mod i=0 then write(i,' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm
