Viết chương trình nhập số nguyên N và in ra các ước của chúng Giúp mình!!!

0 bình luận về “Viết chương trình nhập số nguyên N và in ra các ước của chúng Giúp mình!!!”

1. program oken;

   uses crt;
   var a,i:integer;
   begin
           clrscr;
           write(‘nhap so: ‘); readln(a);

           write(‘uoc so cua ‘,a,’= ‘);

           for i:=1 to a-1 do

               if a mod i= 0 then write(i,’.’);

            readln;

   end.       

   Bình luận

2. Program BTH;
   uses crt;
   var n,i:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           write(‘Uoc cua ‘,n,’ la: ‘);
           for i:=1 to n-1 do
           if n mod i= 0 then write(i,’ ‘);
           readln;
   end.

   Bình luận