Question

Viết chương trình hiển thị số lượng ước lớn nhất trong các số tự nhiên nhỏ hơn N( N nguyên dương) Ví dụ: n=5 => kết quả số lượng ước lớn nhất là 3

Answer 1

uses crt;

var n,i,m,max:integer;

function kt(n:integer):integer;

var j,k:integer

begin

k:=0;

for j:=2 to n do

if (n mod j)=0 then k:=k+1;

kt:=k+1;

end;

begin

readln(n);

if n=1 then write(1)

else

begin

max:=kt(2);

for m:=3 to n do

if max<kt(m) then max:=kt(m);

write(max);

end;

end.