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: - Dòng 1: Ghi số nguyên dương K. (0

• Lớp 8
• Tin Học

Xem đáp án

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.

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.