Вшколу пришло 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

120 страниц

Объяснение:

К = k1 * k2 * k3, где

К - количество символов в документе

k1 - количество страниц в документе

k2 - количество строк на странице

k3 - количество символов в строке

I = К * i, где

I - длина двоичного кода (информационный объём документа)

К - количество символов в документе

i - информационный вес символа (количество бит или байт, которым кодируется 1 символ)

В KOI8-U 1 символ кодирует 1 байтом.

Дано:

k2 = 128

k3 = 48

I = 720 Кбайт = 737 280 байт

i = 1 байт

Найти:

k1

I = k1 * k2 * k3 * i

k1 = I / (k2 * k3 * i)

k1 = 737 280 / (128 * 48 * 1) = 120 страниц

Ближе к началу координат та из точек, чей квадрат расстояния до начала координат x^2 + y^2 меньше. У меня описан алгоритм что_ближе, который принимает аргументами 4 вещественных числа - координаты точек и выводит сообщение о том, какая из точек ближе.

У меня для примера рассматриваются точки (1, 1) и (2, 0) - первая точка ближе, (4, 8) и (1, 7) - вторая точка ближе, и (3, 4) и (0, 5) - точки на одинаковом расстоянии.

Вы можете задавать значения и с клавиатуры, и записывать их сразу в текст программы, в зависимости от того, что требуется.

алг
нач
  что_ближе(1, 1, 2, 0)
  что_ближе(4, 8, 1, 7)
  что_ближе(3, 4, 0, 5)
кон
 
алг что_ближе(вещ x1, y1, x2, y2)
нач
  вещ d
  d := (x1*x1 + y1*y1) - (x2*x2 + y2*y2)
  выбор
    при d < 0: вывод "Первая точка ближе", нс
    при d > 0: вывод "Вторая точка ближе", нс
    иначе вывод "Точки на одинаковом расстоянии", нс
  все
кон