Nhập vào một số n nguyên dương,in ra màn hình số tự nhiên có ước lớn nhất từ 1 đến n nguyên dương
Nhập vào một số n nguyên dương,in ra màn hình số tự nhiên có ước lớn nhất từ 1 đến n nguyên dương
By Ayla
By Ayla
Nhập vào một số n nguyên dương,in ra màn hình số tự nhiên có ước lớn nhất từ 1 đến n nguyên dương
Program timtongcacuoc;
Uses crt;
Var s:array[1..1000] of integer;
BEGIN
Readln(n);
k:=1;
For i:= 1 to n do
begin
for j:=2 to i – 1 do if i mod j = 0 then a[i]:=a[i]+j;
end;
for j:=1 to n do
begin
if a[j] < a[j+1] then
begin
m:=j+1;
end;
end;
writeln(‘So nguyen duong co uoc lon nhat tu 1 den n nguyen duong la: ‘,m);
END.