Nhập n, xuất ra màn hình số phản nguyên tố lớn nhất bé hơn n

0 bình luận về “Nhập n, xuất ra màn hình số phản nguyên tố lớn nhất bé hơn n”

1. var n,t,max:longint;

   function count(x:longint):word;

   var i:longint;

        d:word

   begin

   for i:=1 to x do if x mod i=0 then inc(d);

   exit(d);

   end;

   begin

   write(‘Nhap n: ‘); readln(n);

   for j:=1 to n do

   if count(i) > max then

   begin

   max : = count(i);

   t:=i;

   end;

   write(‘So can tim la: ‘,i);

   readln

   end.

   Bình luận

2. Uses crt;
   Var max,i,n,ln:longint;
   Function demuoc(b:longint):longint;
   Var dem,i:longint;
   Begin
           dem:=0;
           For i:=1 to b do
           If b mod i=0 then dem:=dem+1;
           demuoc:=dem;
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); readln(n);
           max:=0;
           For i:=1 to n do
           If demuoc(i)>max then
           Begin
                   max:=demuoc(i);
                   ln:=i;
           End;
           Write(‘So phan nguyen to: ‘,ln);
           Readln
   End.

   Bình luận