Viết chương trình in ra tất cả các số nguyên tố bé hơn hoặc bằng n? ngắn gọn nhé

0 bình luận về “Viết chương trình in ra tất cả các số nguyên tố bé hơn hoặc bằng n? ngắn gọn nhé”

1. Program bai1;

   uses crt;

   var dem,n,i: integer;

   begin

   clrscr;

   write(‘nhap n =’); readln(n);

   dem:=0;

   for i:= 1 to n do

   if i mod 2 = 1 then

   begin

   write(i:3,’,’);

   dem:= dem+1 ;

   if dem mod 15 = 0 then writeln;

   end;

   readln;

   end.

   Bình luận