viết chương trình tìm tất cả các ước ko âm của n , với n nhập từ bàn phím

0 bình luận về “viết chương trình tìm tất cả các ước ko âm của n , với n nhập từ bàn phím”

1. program hotboy;

   uses crt;

   var n,i:integer;

   begin

   clrscr;

   write(‘nhao so n tu ban phim ‘);

   readln(n);

   for i:=1 to n do

   if n mod i=0 then write(i,’la uoc cua ‘,n);

   readln

   end.

   Bình luận

2. Uses Crt;

   Var N,i : Integer;

   Begin

           Clrscr;

          Write(‘Nhap so nguyen N= ‘);

          Readln(N); For i:=1 To N Do

            If N MOD i=0 Then Write(i:5);

   Readln;

   End.

   Bình luận