begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
Ориентированный граф (кратко орграф) — (мульти) граф, рёбрам которого присвоено направление. Направленные рёбра именуются также дугами, а в некоторых источниках и просто рёбрами.
a) Максимальное значение суммы разрядов равно 18 (получется как 9+9).
b) Разряды результата разбиватются на два числа, первое из которых не может превышать второе.
214 разбивается на 2 и 14. Такой результат недопустим: если сумма двух чисел была равна 2, то никакое из этих чисел не даст 14 во второй сумме.
148 разбивается на 14 и 8. Такой результат недопустим: нарушен порядок следования сумм.
145 разбивается на 14 и 5. Такой результат недопустим: нарушен порядок следования сумм.
142 разбивается на 14 и 2. Такой результат недопустим: нарушен порядок следования сумм.
514 разбивается на 5 и 14. Такой результат допустим.
814 разбивается на 8 и 14. Такой результат допустим.
114 разбивается на 1 и 14. Такой результат недопустим: если сумма двух чисел была равна 1, то никакое из этих чисел не даст 14 во второй сумме.
Ответ: 2.
64 плюс 32 плюс 16 плюс 4 плюс 2 плюс 1 равно 129
Program n1;
var a,min,max,i,n: integer;
begin
readln(n);
readln(a);
min:=a;
max:=a;
for i:=2 to n do
begin
readln(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln('min=',min);
write('max=',max);
end.