Объяснение:
var b,i,x,j:integer;
s:string;
begin
for i:=185457 to 185489 do
x:=0;
s:='';
for j:=2 to (i div 2) do
if ((i mod j)=0) then begin
x:=x+1;
s:=s+j+' ';
end;
if x=2 then
writeln (s,'\\ ',i);
end.
![Напишите программу, которая ищет среди целых числовому отрезку [185457;185489]](/tpl/images/4385/3070/5b370.jpg)
Объяснение:
var b,i,x,j:integer;
s:string;
begin
for i:=185457 to 185489 do
begin
x:=0;
s:='';
for j:=2 to (i div 2) do
if ((i mod j)=0) then begin
x:=x+1;
s:=s+j+' ';
end;
if x=2 then
writeln (s,'\\ ',i);
end;
end.