• Предмет: Информатика
  • Автор: vladimirkivyakin
  • Вопрос задан 6 лет назад

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

Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.

Вас заинтересует