Cho số nguyên dương K. Yêu cầu: Kiểm tra K có phải là số nguyên tố hay không. Dữ liệu vào: Cho trong file văn bản NGUYENTO.INP có cấu trúc như sau: –

0 bình luận về “Cho số nguyên dương K. Yêu cầu: Kiểm tra K có phải là số nguyên tố hay không. Dữ liệu vào: Cho trong file văn bản NGUYENTO.INP có cấu trúc như sau: –”

1. const fi=’nguyento.inp’;

            fo=’nguyento.out’;

   var k:longint;

   function checkprime(x:longint):boolean;
   var i:longint;
   begin
           if x<2 then exit(false);
           for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
   end;

   begin

   assign(input,fi);

   reset(input);

   read(k);

   close(input);

   assign(output,fo);

   rewrite(output);

   if checkprime(k) then write(‘Y’) else write(‘N’);

   close(output);

   end.

   Bình luận

2. Const Fi=’NGUYENTO.INP’;
         Fo=’NGUYENTO.OUT’;
   Var f,g: text;
       k: byte;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
                                       exit(true);
   End;

   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,k);
           If ngto(k) then Write(g,’Y’)
           Else Write(g,’N’);
           Close(f);
           Close(g);
   End.

   Bình luận