Доказать, что любую целочисленную денежную сумму,большую 7 руб., можно выплатить без...

Question

Доказать, что любую целочисленную денежную сумму,большую 7 руб., можно выплатить без сдачи трешками и пятерками.Для данного n > 7 найти такие целые неотрицательные a и b, что 3a +5b = n.
Нужно написать на делфи

Answer 1

Var
    a, b, n: integer;

begin
    read(n);
    if n<=7 then exit;<br>   
    for a := 1 to n do
        for b := 1 to n do
            if 3 * a + 5 * b = n then
                writeln('3 * ', a, ' + 5 * ', b, ' = ', n);
end.