Nhập số nguyên n, in ra ước số lẽ lớn nhất của nó. Gợi ý : Sử dụng for… downto

0 bình luận về “Nhập số nguyên n, in ra ước số lẽ lớn nhất của nó. Gợi ý : Sử dụng for… downto”

1. program baigiai;
   uses crt;
   var n,i:integer;
     begin
       clrscr;
       write(‘Nhap n: ‘);   readln(n);
       for i:=n downto 1 do
         if (n mod i=0) and (i mod 2=1) then
           begin
             write(‘Uoc so le lon nhat cua ‘,n,’ la: ‘,i);
             break;
           end;
       readln
     end.

   Bình luận