Question

Să se scrie un program care citește două numere naturale a și b și determină câte numere prime sunt în intervalul închis determinat de a și b.

Answer 1

for I:=a to b do
begin
for j:=1 to I do
begin
if I mod j = 0 then k:=k+1;
end;
if k=2 then Writeln('Numarul e prim: ',I);
k:=0;
end;