Hãy tính tổng các số nguyên tố trong phạm vi từ M đến N (N>=M , N, N nguyên dương)

0 bình luận về “Hãy tính tổng các số nguyên tố trong phạm vi từ M đến N (N>=M , N, N nguyên dương)”

1. var m,n,j,s:longint;

   function checkprime(x:longint):boolean;
   var i:longint;
   begin
           for i:=2 to trunc(sqrt(x)) do if x mod i = 0 then exit(false) else exit(true);
   end;

   begin

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

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

   for j:=m to n do

   if checkprime(i) then s:=s+i;

   write(‘S = ‘,s);

   readln;

   end.

   Bình luận

2. program tong;
   uses crt;
   var S,i,m,n,d,j:integer;
   begin
      clrscr;
      readln(m,n);
      For i:=m to n do
       begin
        For j:=1 to i do if i mod j=0 then inc(d);
        IF d=2 then
         begin
          d:=0;
          S:=S+i;
         end
        else d:=0;
       end;
      writeln(S);
      readln;
   end.

   Bình luận