Вшколу пришло n первоклассников. из них надо сформировать несколько классов. при этом требуется соблюсти следующие условия: в классе не может учиться более 25 человек, количество классов должно быть наименьшим, количество учеников в каждом классе должно быть примерно одинаковым, то есть количество учеников в двух разных классов может различаться не более чем на 1. ваша программа должна вывести два числа: количество классов и количество учеников в самом маленьком классе.
input format
одно натуральное число n, n≤1000
output format
через пробел два целых числа — количество классов и количество учеников в самом маленьком классе.
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