viết chương trình nhập số n từ bàn phím , kiểm tra xem n có phải số nguyên tố hay k

0 bình luận về “viết chương trình nhập số n từ bàn phím , kiểm tra xem n có phải số nguyên tố hay k”

1. Program Hotboy ;

   Uses crt;

   Var n, i: integer;

       Kt: boolean;

   begin

      Kt:=true;

   Write(‘Nhap n tu ban phim :  ‘);

   Readln(n);

      For i:= 2 to n – 1 do if ( n mod i = 0) then 

      Kt :=false;

      If Kt then write(n,’ la so nguyen to’)

      Else

      Write(n, ‘ khong la so nguyen to’);

      Readln

   End.

   Bình luận

2. uses crt;

   var i,n,dem:integer;

   begin clrscr;

   write(‘nhap so nguyen duong n =’);

   readln(n);

   dem:=0;

   for i:=1 to n do if n mod i=0 then dem:=dem+1;

   if (n<2) or (dem<>2) then writeln(n, ‘khong phai la so nguyen to’) else if dem=2 then writeln(n, ‘la so nguyen to’);

   readln

   end.

   Cho mình 5 sao + câu tl hay nhất nha <3

   Bình luận