viết chương trình nhập 1 số nguyên n in ra các số nguyên tố từ 1 đến n

0 bình luận về “viết chương trình nhập 1 số nguyên n in ra các số nguyên tố từ 1 đến n”

1. program ct;

   uses crt;

   var n,i,j:integer;

   begin clrscr;

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

        i:=2; j:=3;

      write(‘2 ‘);

      while i<=n do

        begin

          k:=2;

        while(j mod k <>0 do

          k:=k+1;

          if j=k then

           begin

            i:=i+1;

            write(j,’ ‘);

          end;

          j:=j+1;

        end;

   readln;

   end.

   Học tốt!

   Bình luận