1.Se citesc doua nr a ,b a <= b
cate nr din intervalul închis a b sunt prime : rezolvare :
Var d ,x ,a ,b,c:longing;
p:boolean;
Begin
writeln ( 'dați a ') ;readln (a);
writeln ( 'dați b ') ;readln (b);
c:=0;
For x:=a to b do begin
p:=true;
For d := 2 to x div 2 do
If x mod d =0 then p:=false ;
If p=true then c:=c+ 1 ;
end;
writeln ( 'sunt ',c,' nr prime ') ;
readln;
end.
