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