Question

Помогите написать на паскале решение. Задание 10.

Answer 1

begin

 var x, y: real;

 Read(x);

 if x <= 1 then y := 0.0055

 else y := LogN(4, x) - 1;

 Print(x, y)

end.