Viết sơ đồ nhập vào số nguyên dương n. Hãy in ra màn hình số lượng ước dương của n
1 câu trả lời
program tim_uoc;
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n: ');readln(n);
if (n<0) then
begin
writeln('So nhap vao khong thoa man.');
write('Nhap lai n: ');readln(n);
end;
writeln('Cac uoc so cua ',n,' tu 1 den ',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
