Размещено 5 лет назад по предмету
Информатика
от кгоурр
Поясните каждую строчку program odin; var i,n,k,j:integer; begin read(n); i:=1; for i:=2 to n do begin k:=0; for j:=2 to i-1 do if i mod j=0 then k:=1; if(k=0)and(n mod i=0)then writeln(i); end; end.