Question

Написать программу вычисления значений функций в заданных точках

Answer 1

var
    t, y, a, b: real;

begin
    readln(t, a, b);
    if t < 1 then y := 1
    else if t > 2 then y := exp(a * t) * cos(b * t)
    else y := a * t * t * ln(t);
    writeln('y = ', y);
end.