begin
var (a, b, h) := ReadReal3();
var F: Func<real, real> := x -> Tan(2 * x) - 3;
var x := a;
repeat
Writeln(x:3:1, F(x):10:6);
x += h;
until x > b;
end.
