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

Question

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

in progress 0
Kim Chi 5 years 2020-10-16T19:08:05+00:00 3 Answers 206 views 1

Answers ( )

  1. sori
    0
    2020-10-16T19:10:02+00:00
    Reply

    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.

  2. bonexptip
    0
    2020-10-16T19:10:02+00:00
    Reply

    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.

  3. phucdien
    0
    2020-10-16T19:10:08+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo số phản nguyên tố các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )