Viết chương trình tính ước lớn nhất của một số (Cần mỗi code của cái này thui :33)

0 bình luận về “Viết chương trình tính ước lớn nhất của một số (Cần mỗi code của cái này thui :33)”

1. program MAX;

   uses crt;

   var i,n,UMAX :integer;

   begin

                     clrscr;

                     write(‘Nhap so n: ‘);readln(n);

                     For i:=n div 2 downto 1 do //Cac U cua N se KHONG BAO GIO >1/2 CUA N

                     if n mod i=0 then

                                       begin

                                                        UMAX:=i;

                                                         break;

                                       end;

                     write(i);

                     readln;

   end.

   Bình luận

2. uses crt;
   var n,i:longint;
   begin
   clrscr;
       write(‘Nhap mot so: ‘);readln(n);
       i:=n div 2;
       while n mod i<>0 do dec(I);
       Writeln(i);
   readln
   end.

   

   Bình luận