Технологии

вводится положительное число N, вывести 2 числа A и B, сумма которых равна N и их общий делитель максимален(Паскаль) - вопрос №2609761

октябрь 5, 2017 г.

Всего ответов: 1

Константин

4-й в

22 отзыва

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.