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? pas cal

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

1. Uses crt;

   var i,dem,j,n:Integer;

   Begin

   write(‘Nhap so nguyen n’);ReadLn(n);if n>0 ThenbeginWriteLn(‘Cac so nguyen to tu 2 den ‘,n,’ la:’);

   for j:=2 to n Do

   begin

   dem:=0;

   for i:= 1 to j do if j mod i=0 then dem:=dem+1;

   if dem=2 then write(j,’ ‘);

   end;

   end;

   Readln

   End.

   Bình luận

2. Hướng dẫn:
   – Cho i chạy từ 2 đến n.
   – Xét i. Nếu nó là số nguyên tố thì in nó ra.

   b. Mã chương trình:
   Program Nguyen_to_1;
   uses crt;
   var n, i, j: integer;
    ok: boolean;
   begin
    clrscr;
    write(‘Nhap n: ‘); readln(n);
    for i := 2 to n do
    begin
    ok:=true;
    for j:= 2 to i – 1 do if i mod j = 0 then
    ok :=false;
    if ok then write(i,’;’)
    end;
    readln
   end

   chúc bn hc tốt #nguyễn thanh bảo kha

   Bình luận