Viết chương trình nhập vào một số tự nhiên N từ bàn phím và kiểm tra N có phải là một số nguyên tố hay không?

0 bình luận về “Viết chương trình nhập vào một số tự nhiên N từ bàn phím và kiểm tra N có phải là một số nguyên tố hay không?”

1. uses crt;
   var i,s,n:integer;
       a:array[1..1000] of integer;
   begin
    clrscr;
    write(‘Nhap n: ‘);
    readln(n);
    if (n mod 2=0) then write(n,’ ko la snt’)
    else
     begin
      for i:=2 to n-1 do if (n mod i = 0) then break;
      if i=n-1 then write(n,’ la snt’) else write(n,’ ko la snt’);
     end;
    readln;
   end.

   Vote mình nha :3

   Bình luận