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

0 bình luận về “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”

1. 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.

   Bình luận