Ответ:
1122
Объяснение:
Заменим команды на обратные:
1. умножь на 3 - раздели на 3
2. вычти 2 - прибавь 2
Пойдем от большего числа к меньшему учитывая, что в результате действий должны получаться только целые числа
23+2=25 (2)
25+2=27 (2)
27/3=9 (1)
9/3=3 (1)
Запишем произведённые действия снизу вверх 1122
Program example;var m :integer;begin m:=0; writeln('Номер месяца'); read(m); case m of 1:writeln ('Февраль'); 2:writeln ('Март'); 3:writeln ('Апрель'); 4:writeln ('Май'); 5:writeln ('Июнь'); 6:writeln ('Июль'); 7:writeln ('Август'); 8:writeln ('Сентябрь'); 9:writeln ('Октябрь'); 10:writeln ('Ноябрь'); 11:writeln ('Декабрь'); 12:writeln ('Январь'); else writeln ('Это число не является цифрой'); end;end.
Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.