Получить ответ

Константин program maxd;     var n,a,b,d,m: longint; begin     randomize;     readln(n);     for d:=2 to n do         if ((n mod d) = 0) then             break;     if d=n then begin         writeln('n — простое, решения не существует.');         halt;     end;     m := n div d;     a := random(d-1)+1;     b := d — a;     writeln('ввод                  — ', n);     writeln('максимальный делитель — ', m);     writeln(a,'*',m,'+',b,'*',m,'=',n); end. 05.10.17

Похожие вопросы