Viết chương trình in ra số nguyên tố i, i<=n, n là số được nhập vào. Bằng câu lệnh While

0 bình luận về “Viết chương trình in ra số nguyên tố i, i<=n, n là số được nhập vào. Bằng câu lệnh While”

1. uses crt;

   var i,n,s,j,luu:integer;

   begin

   clrscr;

   i:=1;

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

   write(‘Cac so nguyen to la: ‘);

   while i<>n do begin

   for j:=1 to i do  if (i>=2) and (i mod j=0) then luu:=luu+1;

   if luu=2 then write(i, ‘,’);

   luu:=0;

   i:=i+1;

   end;

   readln

   end.

   Bình luận