Question

50+ балов Помогите вычислить значение функции(нужно написание в паскале) пожалуйста срочно

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

function f(t:real):real;
begin
  var a:=20.3;
  if t<1 then Result:=a*t*t
  else
    if t<=2 then Result:=Ln(t)
    else Result:=Exp(a*t)
end;

begin
  Writeln('y=',f(ReadReal('Введите t:')))
end.

Пример
Введите t: 2.51
y=1.34464219834909E+22