Cho số nguyên dương N. Hãy kiểm tra xem N có phải là số nguyên tố? Input Format Dòng đầu ghi số nguyên dương T là số lượng test T dòng tiếp theo, mỗi

Cho số nguyên dương N. Hãy kiểm tra xem N có phải là số nguyên tố?
Input Format
Dòng đầu ghi số nguyên dương T là số lượng test
T dòng tiếp theo, mỗi dòng ghi một số nguyên dương N
Constraints
T<=10^2 N<=10^8 Output Format T dòng tương ứng mỗi dòng ghi 1 nếu N là số nguyên tố, hoặc ghi 0 nếu N không là số nguyên tố Sample Input 0 3 2 6 7 Sample Output 0 1 0 1 Làm trên Pascal nhé,cần gấp !!

0 bình luận về “Cho số nguyên dương N. Hãy kiểm tra xem N có phải là số nguyên tố? Input Format Dòng đầu ghi số nguyên dương T là số lượng test T dòng tiếp theo, mỗi”

  1. var f1, f2: text;

          T, i: byte;

          N: qword;

    Function kt(a: qword): boolean;

       Var j: qword;

       Begin

          If a<2 then exit(false);

          For j:=2 to trunc(sqrt(a)) do

              If a mod j=0 then axit(false);

          Exit(true);

       End;

    Begin

        Assign(f1, ‘input.txt’); reset(f1);

        Assign(f2, ‘output.txt’); rewrite(f2);

        readln(f1, t);

        For i:=1 to t do

           Begin

               Readln(f1, n);

               If kt(n)=true then writeln(f2, 1)

               Else writeln(f2, 0);

           End;

       Close(f2);

    End.

    Bình luận
  2. program nguyen_to;

    uses crt;

    var t,i:byte;

          n:array[1..100] of longint;

    {—Ham-nguyen-to—}

    function ktnt(k:longint):boolean;

    var r:longint;

    begin

           ktnt:=false;

           if k<2 then exit;

           for r:=2 to trunc(sqrt(k)) do

                  if k mod r=0 then exit;

           exit(true);

    end;

    {—Chuong-trinh-chinh—}

    BEGIN

           clrscr;

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

           for i:=1 to t do

                  begin

                         write(‘Nhap so thu ‘,i,’: ‘);  readln(N[i]);

                  end;

           for i:=1 to t do

                  if ktnt(n[i]) then writeln(1) else writeln(0);

           readln;

    end.

          

    Bình luận

Viết một bình luận