Больше мороки чем сложности...
Type int=100..999;
Var x:int;
Begin
readln(x);
case (x div 100) of
1:write('Сто ');
2:write('Двести ');
3:write('Триста ');
4:write('Четыреста ');
5:write('Пятьсот ');
6:write('Шестьсот ');
7:write('Семьсот ');
8:write('Восемьсот ');
9:write('Девятьсот ');
end;
if ((x mod 100) div 10)=1 then
case (x mod 10) of
0:write('десять ');
1:write('одиннадцать ');
2:write('двенадцать ');
3:write('тринадцать ');
4:write('четырнадцать ');
5:write('пятнадцать ');
6:write('шестнадцать ');
7:write('семнадцать ');
8:write('восемнадцать ');
9:write('девятнадцать ');
end
else
begin
case ((x mod 100) div 10) of
2:write('двадцать ');
3:write('тридцать ');
4:write('сорок ');
5:write('пятьдесят ');
6:write('шестьдесят ');
7:write('семьдесят ');
8:write('восемьдесят ');
9:write('девяносто ');
end;
case (x mod 10) of
1:write('один');
2:write('два');
3:write('три');
4:write('четыре');
5:write('пять');
6:write('шесть');
7:write('семь');
8:write('восемь');
9:write('девять');
end;
end;
End.
бит приходится на 1 символ
количество символов в данном алфавите
А1 = 3
В1 = А1 + 1 = 3 + 1 = 4
А2 = В1 - А1 = 4 - 3 = 1
В2 = А1 - А2 * 2 = 3 - 1 * 2 = 3 - 2 = 1
С2 = А1 + В2 = 3 + 1 = 4
D2 = В1 / 2 = 4 / 2 = 2
По значениям ячеек диапазона A2:D2 была построена диаграмма:
А2 = 1 В2 = 1 С2 = 4 D2 = 2
Смотрим на диаграммы:
На диаграмме б все столбики разные, а у нас два значения одинаковые => не подходит
На диаграмме с три сектора равные, а у нас два значения одинаковые => не подходит
На диаграмме а две полоски одинаковые, но две другие не соблюдают соотношение увеличения в 2 раза, как у наших значений => не подходит
На диаграмме г две полоски одинаковые и две другие соблюдают соотношение увеличения в 2 раза у двух, как у наших значений => подходит
1029
максимально удаленные друг от друга цифры это 1 и 0, после них идут 2 и 9
<span>0 не может стоять в начале числа, т.к. оно не будет 4-х значным</span>