Dùng lệnh for..do tìm 5 ước của a

0 bình luận về “Dùng lệnh for..do tìm 5 ước của a”

1. Bài này mình tìm tất cả ước của a luôn

   Có sai sót bạn thông cảm chờ mình sửa

   uses crt;

   var a,i:longint;

   begin

   clrscr;

   write(‘Nhap so can tim: ‘);readln(a);

   write(‘U(‘,a,’)={ ‘);

   for i:=1 to (a-1) do

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

   readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var a,i,dem: longint;
   begin
       clrscr;
       write(‘Nhap so a: ‘); readln(a);
       write(‘5 uoc cua ‘,a,’: ‘);
       dem:=0;
       for i:=1 to (a-1) do
           if (dem<=5) then
               if (a mod i=0) then
                   begin
                       write(i,’; ‘);
                       dem:=dem+1;
                   end;
       readln;
   end.

   Bình luận