Nhập vào một số nguyên từ bàn phím in ra tổng các số nguyên tố bé hơn n

0 bình luận về “Nhập vào một số nguyên từ bàn phím in ra tổng các số nguyên tố bé hơn n”

1. program tong;

   uses crt;

   var n,i,d,j,T: integer;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            for i:=1 to n do

            begin

                     d:=0;

                     for j:=1 to i do

                     if i mod j=0 then d:=d+1;

                     if d=2 then T:=T+i;

            end;

            write(‘Tong cac so nguyen to < ‘,n,’ = ‘,T);

            readln

   End.

   Bình luận