Переводим 1100011 и у нас получается 99
1. Отметим, что оба получающихся числа независимы друг от друга, поскольку первое строится из нечетных цифр исходного пятизначного числа, а правое - из четных.
2. Первое число - сумма трех цифр, следовательно его величина может быть в пределах от 0+0+0=0 до 9+9+9=27. Второе число - сумма двух цифр, поэтому его величина может быть в пределах от 0+0=0 до 9+9=18. На этом основании бракуем все числа, у которых вторая цифра больше 27 и/или первая цифра больше 18.
Таким образом вычеркиваем 1030, 2019, 1920, 3010.
3. 40 - не подходит (4,0), нарушен порядок неубывания, 130 - не подходит (13,0), 1320 - (13,20) - подходит, нарушен порядок неубывания, 2013 - не подходит (20,13), нарушен порядок неубывания, 213 - подходит (2,13).
Ответ: 2 числа.
{ Пример программы для процедуры FloodFill }
<span>Uses Graph,Crt; </span>
<span>Var Gd, Gm : Integer; </span>
<span>Begin </span>
<span>Gd:=Detect; </span>
<span>InitGraph(Gd, Gm, ''); </span>
<span>If GraphResult <> grOk Then Halt(1); </span>
<span>SetColor(GetMaxColor); </span>
<span>Circle(50, 50, 20); </span>
<span>FloodFill(50, 50, GetMaxColor); </span>
<span>Readkey; </span>
<span>CloseGraph; </span>
<span>End. </span>
<span>Procedure FloodFill(X, Y : Integer; Border : Word); </span>
<span>Закрашивает замкнутую область, используя текущие стиль и цвет закраски. </span>
<span>Procedure SetFillStyle(Pattern : Word; Color : Word); </span>
<span>Устанавливает цвет и стиль закраски. </span>
<span>Procedure SetColor(Color : Word) </span>
<span>устанавливает текущий цвет, </span>
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var a:=ReadArrInteger('Введите 5 целых чисел',5);
Writeln('Разница между min и max: ',a.Max-a.Min)
end.
<u><em>Тестовое решение:</em></u>
Введите 5 целых чисел 8 14 -5 0 7
Разница между min и max: 19
