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?

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?”

1. Phương trình :

   uses crt;

   var dem,n,i: integer;

   clrscr;

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

   dem:=0;

   for i:= 1 to n do

   if i mod 2 = 1 then

   write(i:3,’,’);

   dem: = dem+1 ;

   if dem mod 15 = 0 then writeln;

   end;

   readln;

   end.

   Bình luận

2. 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