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

STALKER147 STALKER147    1   14.12.2019 21:51    2

Ответы
SleepWalker5669 SleepWalker5669  23.08.2020 11:15

Объяснение:

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;

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика