Анализ задачи - проектирование - кодирование - тестирование - документирование.
ДАВГБ
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
<h3>А еще это можно решить, к примеру, так:</h3>
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Что бы наверняка охватить все возможные символы, пусть текст кодируется по стандарту UTF-16, т.е. 2 байта на символ.
Далее нужно измерить кол-во символов в строке, потом количество строк на странице, количество страниц в учебнике.
Таким образом получим емкость страницы:
(кол-во строк на стринце)*(кол-во символов в строке)*(кол-во страниц в учебнике)*2 = байт/учебник. Назовем полученную величину емкость учебника E;
Далее делим.
360 Кбайт: 360*1024 / E
1.44 Мбайт: 1.44 * 1024^2 / E
420 Мбайт: 420 * 1024^2 / E
6,4 Гбайт: 6.4 * 1024^3 / E