Cho 1 số tự nhiên n, hãy cho biết các ước số dương của n

0 bình luận về “Cho 1 số tự nhiên n, hãy cho biết các ước số dương của n”

1. 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.

   Bình luận

2. 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.

   Bình luận