Энциклопедия!!!!!???????!!!
При таком раскладе количество комбинаций будет равно 63.
Любая Флешка, DVD диск, CD, жёсткий диск
Var a,b:real;
<span>begin </span>
<span>writeln('Введите число для угадывания'); </span>
<span>read(a); </span>
<span>writeln('Введите число'); </span>
<span>repeat </span>
<span>read(b); </span>
<span>if b>a then writeln('Меньше'); </span>
<span>if b<a then writeln('Больше'); </span>
<span>until b=a; </span>
<span>writeln('Вы угадали'); </span>
<span>end. </span>
<h3>Если число цифр нечетное, среднюю цифру не учитываем.</h3><h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (n, S) := (ReadInteger, 0);
loop Trunc(Log10(n) + 1) div 2 do
begin
S += n mod 10;
n := n div 10
end;
S.Println
end.
<h2>12345678</h2><h2>26 </h2>