viết chương trình tính tổng các số nguyên tố trong dãy từ a – b với a, b là số nguyên tố nhập từ bàn phím( giả sử a < b). Mong mọi người giải giúp em ạ, em cảm ơn ( Giải bẳng pascal ạ ).
viết chương trình tính tổng các số nguyên tố trong dãy từ a – b với a, b là số nguyên tố nhập từ bàn phím( giả sử a < b). Mong mọi người giải giúp em ạ, em cảm ơn ( Giải bẳng pascal ạ ).
Program giup;
Uses crt;
Var a,b,i,s:longint;
Function ngto(m:longint):bolean;
Var i:longint;
Begin
Ngto:=true;
If m<=1 then ngto:=false
Else
For i:=2 to m div 2 do
If m mod i=0 then ngto:=false;
End;
Begin
Write(‘nhap A,B: ‘); readln(a,b); s:=0;
For i:=a to b do
If Ngto(i) then s:=s+i;
Write(‘tong cac so nguyen to tu ‘,a,’ den ‘,b,’ la: ‘,s);
Readln;
End.