var
i,j:longint;
flag,n:byte;
begin
n:=1;
for i:= 2943444 to 2943529 do begin
flag:=0;
for j:= 2 to i div 2 do
if i mod j =0 then begin
flag:= 1;
break;
end;
if flag=0 then begin
writeln(n,' ',i);
inc(n);
end;
end;
end.
Переведите програму с паскаля на питон
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад