Question

Помогите составить программу на Паскале.

Answer 1

Ответ:

Объяснение:

readln(a,b);

if a<2 then a:=2;

for i:=a to b do

begin

 kl1:=0;kl2:=0; j:=2;  

 while((kl2=0) and (j<>i))

   begin

    if (i mod j=0) then begin kl2:=1; kl1:=1; end;

    inc(j);    

   end;

  if (kl1=0) then writeln(i);

end;