Программа и пример её работы - в прилагаемом файле.
Var
a:longint;
s:string;
begin
writeln('Введите целое число');
readln(a);
Str(a,s);
writeln('Количество цифр в числе равно ',length(s));
end.
54(10)=66(8)
54(10)=36(16)
54(10)=110110(2)
AB(16)=253(8)
AB(16)=171(10)
AB(16)=10101011(2)
В скобках указаны системы счисления.
1) 128 * 40 = 5120 (с.) - символов на 1 странице
2) 5120 * 10 = 51200 (с.)
Ответ: 10 страниц содержат 51200 символов.
Ответ в приложении, включен режим показа формул