Ответы
Ответ дал:
0
Ответ:
Объяснение:
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;
BobbyFresnel:
Только это не программа, а кусок. Выполнить ее нельзя.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад