Hãy đưa ra màn hình số nguyên tố từ 1 đến 100. Và tìm hiểu ý nghĩa từng câu lệnh

0 bình luận về “Hãy đưa ra màn hình số nguyên tố từ 1 đến 100. Và tìm hiểu ý nghĩa từng câu lệnh”

1. program SNT;           { khai báo tên chương trình }

   uses crt;                    { khai báo thư viện }

   var i,d,j: byte;            { khai báo biến }

   Begin                        { bắt đầu chương trình }

        writeln(‘Cac so nguyen to tu 1 den 100:’);     { in ra màn hình “Cac so nguyen to tu 1 den 100:” }

        for i:=1 to 100 do           { cho biến i chạy từ 1 đến 100 }

        begin               { bắt đầu phần chương trình con }

             d:=0;           { gán d=0 }

             for j:=1 to i do         { cho biến j chạy từ 1 đến biến i }

             if i mod j=0 then d:=d+1;         { nếu i chia hết cho j thì gán d=d+1 }

             if d=2 then write(i,’ ‘);     { nếu d=2 thì in ra màn hình các số i (tức các số nguyên tố) }

        end;         { kết thúc phần thân con }

        readln       { tạm dừng chương trình đến khi nhấn phím ENTER }

   End.          { kết thúc chương trình }

   Bình luận