Question

В книге на одной странице помещается K строк. Таким образом, на 1-й странице печатаются строки с 1-й по K-ю, на второй — с (K+1)-й по (2∙K)-ю и т.д. Напишите программу, которая по номеру строки в тексте определяет номер страницы, на которой будет напечатана эта строка, и порядковый номер этой строки на странице.

Answer 1

Пусть нужно узнать, где будет напечатана строка с номером n. Для предыдущих (n - 1) строк нужно (n - 1) div k полных страниц и ещё (n - 1) mod k строк на ((n - 1) div k + 1)-ой странице. n-я строка будет следующей на этой странице.

var
  n, k, fullPages, restLines: integer;
 
begin
  write('Номер строки: ');
  readln(n);
  write('Строк на странице: ');
  readln(k);
  fullPages := (n - 1) div k;
  restLines := (n - 1) mod k;
  writeln('Страница: ', fullPages + 1, ', строка: ', restLines + 1);
end.