Question

Nhập vào từ bàn phím:
+ Số nguyên dương K ≤ 500 là số dòng trong mỗi trang của một quyển
sách.
+ Số nguyên dương N ≤ \(10^9\) là số thứ tự của một dòng trong quyển
sách.
Xuất ra màn hình các kết quả sau:
+ Dòng 1: in ra hai số nguyên dương X và Y, trong đó X là số thứ tự
của trang chứa dòng N và Y là số thứ tự của dòng N trong trang X.
+ Dòng 2: in ra số nguyên dương M là số chữ số cần dùng để đánh số
thứ tự các trang từ 1 đến X.

Ví dụ.
INPUT
K = 15 N = 450
OUTPUT
X = 30 Y = 15
M = 21

Answer 1

program hoidaptinhoc;
uses crt;
var K,N,X,Y,M,i : longint;
z : string;
BEGIN
clrscr;
writeln('Nhap so dong trong moi trang cua quyen sach: '); readln(K);
writeln('Nhap so thu tu cua dong: '); readln(N);
if (N mod K) = 0 then begin X:=N div K; Y:=K end;
if (N mod K) <> 0 then begin X:= (N div K) + 1; Y:=N mod K end;
M:=0;
for i:=1 to X do
begin
str(i,z);
M:=M+length(z);
end;
writeln('X= ',X,' Y= ',Y);
writeln('M= ',M);
readln;
END.