Question

В школу пришло n первоклассников. Из них надо сформировать несколько классов. При этом требуется соблюсти следующие условия: в классе не может учиться более 25 человек, количество классов должно быть наименьшим, количество учеников в каждом классе должно быть примерно одинаковым, то есть количество учеников в двух разных классов может различаться не более чем на 1. Ваша программа должна вывести два числа: количество классов и количество учеников в самом маленьком классе.

Input format
Одно натуральное число n, n≤1000

Output format
Через пробел два целых числа — количество классов и количество учеников в самом маленьком классе.

Answer 1

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 =====