Урок 3, задача 6 (1479). Без циклов, Pascal

Language: Layout:

{
Урок 3, задача 6. Задача №1479. Без циклов
В книге на одной странице помещается k строк. 
Таким образом, на 1-й странице печатаются строки с 1-й по k-ю, 
на второй — с (k+1)-й по (2k)-ю и т. д. 
Напишите программу, по номеру строки в тексте определяющую номер страницы, 
на которой будет напечатана эта строка, 
и порядковый номер этой строки на странице.

Входные данные
На вход программе подаются число k — количество строк на странице
и число n — номер строки в тексте (1 <= k <= 200, 1 <= n <= 20000).
Выходные данные
Выведите два числа: 
    номер страницы, на которой будет напечатана эта строка, 
    и номер строки на этой странице.
Примеры
Входные данные: 50 1
Выходные данные: 1 1
Входные данные: 20 25
Выходные данные: 2 5
Входные данные: 15 43
Выходные данные: 3 13
}
var k, n, a, b : integer;
begin
  readln (k, n);
{ 
  Например, на странице 3 строки и у нас номер строки от 1 до 7.
}
  // 1-е предположение:
  a := n div k; // n = 1, k = 3 -> a = 0 (но должно быть 1) 
  b := n mod k; // n = 3, k = 3 -> b = 0 (но должно быть 3)
  writeln (a, ' ', b);
{ Составим таблицу значений a для первых семи строк: n = 1...7:
  n | n div 3 |  a   | n div 3 + 1 | a   | (n - 1 ) div 3 + 1 |  a   |  
  1     0        0 no     1          1 ok         1              1 ok
  2     0        0 no     1          1 ok         1              1 ok
  3     1        1 ok     2          2 no         1              1 ok
  4     1        1 no     2          2 ok         2              2 ok
  5     1        1 no     2          2 ok         2              2 ok
  6     2        2 no     3          3 no         2              2 ok
  7     2        2 ok     3          3 ok         3              3 ok
 
 Аналогичную таблицу можно составить для значений b:
  n | n mod 3 |  b   | n mod 3 + 1 | b   | (n - 1 ) mod 3 + 1 |  b   |  
  1     1        1 ok     2          2 no         1              1 ok
  2     2        2 ok     3          3 no         2              1 ok
  3     0        0 no     1          1 no         3              1 ok
  4     1        1 ok     2          2 no         1              2 ok
  5     2        2 ok     3          3 no         2              2 ok
  6     0        0 no     1          1 no         2              2 ok
  7     1        1 ok     2          2 no         1              3 ok
}
  // 2-е предположение:
  a := ( n - 1 ) div k + 1;
  b := ( n - 1 ) mod k + 1;
  writeln ('Корректное решение:');
  writeln (a, ' ', b);
  
{
  Случай, когда нумерация страниц и строк начинается с нуля,
  но количество строк (k) на странице >= 1
}
  a := n div k;
  b := n mod k;
  writeln ('Решение, если нумерация с нуля:');
  writeln (a, ' ', b);
end.

Show compiler warnings [ + ] Show input