Таким образом, на 1-й странице печатаются строки с 1-й по K-ю, на второй — с (K+1)-й по (2∙K)-ю и т.д. Напишите программу, которая по номеру строки в тексте определяет номер страницы, на которой будет напечатана эта строка, и порядковый номер этой строки на странице.
Пусть нужно узнать, где будет напечатана строка с номером 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.