Question

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

Answer 1

Program asd;
Var a,b,n:integer;
Begin
readln (n); {стоимость}
for a:=0 to 9 do
 for b:=0 to 9 do
if (3*a)+(5*b)=n
then writeln (3*a,'+',5*b,'=',n);
end.
Проверь тк.писал схода