Viết chương trình tìm số nguyên tố

0 bình luận về “Viết chương trình tìm số nguyên tố”

1. program SNT;

   uses crt;

   var n,i,j:integer;

   begin

   clrscr;

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

   for i:=2 to n do
   begin
    j:=2;
    while i mod j <>0 do j:=j+1;
    if j=i then write(j:4);
    end;

   write(n);

   readln

   end.

        

   Bình luận

2. program songuyento;
   uses crt;
   var n,i,j: integer;
   begin
   clrscr;
   write(‘ nhap so n:’);readln(n);
   for i:=4 to n do
   begin
    j:=2;
    while i mod j <>0 do j:=j+1;
    if j=i then write(j:4);
    end;
    readln
   end.

   Bình luận