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. uses crt;
   var i,n,t:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=n downto 1 do
         if(t=0)and(n mod i=0)and(i mod 2=1) then t:=i;
      writeln(t);
   readln
   end.

   Bình luận

2. program uocso;
   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(i);
              break;
           end;
      readln
    end.

   Bình luận