Viết chương trình kiểm tra 1 số nguyên a nhập từ bàn phím có phải là 1 số nguyên tố

0 bình luận về “Viết chương trình kiểm tra 1 số nguyên a nhập từ bàn phím có phải là 1 số nguyên tố”

1. progra kiemtra;

   uses crt;

   var a,i:integer;

          kt:boolean;

   begin

   clrscr;

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

   kt:=true;

   for i:=2 to trunc(sqrt(a)) do

    if a mod i=0 then kt:=false;

   if kt=false then write(‘Khong phan so nguyen to’) 

    else write(‘La so nguyen to’);

   readln

   end.

   Bình luận

2. proram im_14424;

   uses crt;

   var n,i: integer;

   begin

   clrscr;

   write(‘Nhap vao gia tri cua n: ‘);

   readln(n);

   for i:=1 to n do

   begin

   If n mod i = 0 then i:=i+1;

   writeln (n ‘la so nguyen to’);

   else write (n ‘khong la so nguyen to’);

   Readln;

   end;
   end.

   Bình luận