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
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
By Margaret
By Margaret
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
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.
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.