171. Трижды выполните последовательность действий: 282
1-е число | 2-е число Число х
Ne
Действие
1) Задумайте любое
трёхзначное число.
2) Умножьте задуманное
число на 3,
3) к ответу прибавьте 9.
4) к ответу прибавьте 15.
5) Из ответа вычтите 3.
6) Разделите ответ на 3.
7) Из ответа вычтите
задуманное число.
Сделайте вывод о том, почему при различных исходных
данных получается один и тот же результат.​

Сумма двух разрядов всегда остается меньшей или равной 18 (9+9),

поэтому сразу можно удалить числа 111319, 1401, в этих числах : в первом не может быть суммой двух разрядов 19, и во втором числе не может быть суммой двух разрядов 40.

Из условия также понятно, что две первая сумма разрядов меньше второй суммы. а сумму младших слагаемых приписывают в конце.

Этому закону не подчиняется число 131118, так как 13 должно быть меньше 11.

Остается одно число 1) 91311, и оно единственное из перечисленных, т.к. 9 меньше 13, справа приписываем 11.

ответ 1) 91311

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.