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.
Переведите програму с паскаля на питон

egorkashoshin0    3   10.04.2020 10:49    1