Первый вариант: если десятичный логарифм от (2x+3).
Var X:real; Begin Write('x = ');ReadLn(x); if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!') else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!') else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10))) End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real; Begin Write('x = ');ReadLn(x); if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!') else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!') else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3))) End.
Недостатки бумажной: трудность передачи на расстоянии, проблемы редактирования, трудности тиражирования, расходование древесины