Question

realizati un program care afiseaza toate numerele prme din intervalul [x;y]
Verificati pentru x=10 y=99

Answer 1

var i,a,b,x:integer;

begin

read(a,b);
writeln;

for a := a to b do begin
 x := 0;
 for i := 1 to a do 
  if a mod i = 0 then inc(x);
 if x = 2 then write(a, ' ')
 end;
 
end.