Размещено 4 года назад по предмету
Информатика
от vladimirkivyakin
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.
Переведите програму с паскаля на питон