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.Khai báo 3 biến n,i,j.N được nhâp từ bàn phím sử dụng T,F sử dụng điều kiệ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.Khai báo 3 biến n,i,j.N được nhâp từ bàn phím sử dụng T,F sử dụng điều kiện”

1. uses crt;
   var n,i,j : integer;
   function snt(x : integer) : boolean;
   var i,d : integer;
   begin d:=0;
   for i:=1 to x do if x mod i = 0 then d:=d+1;
   if d=2 then snt:=true else snt:=false;
    end;
    begin clrscr;
    write(‘Nhap n :’); readln(n);
    write(‘Cac so nguyen to nho hon n la :’);
    for i:=1 to n-1 do if snt(i) = true then write(i:4);
    readln
    end.

   Bình luận