ac1192.pas

来自「Ural(Acm.timus.ru)题解 By Maigo大牛」· PAS 代码 · 共 13 行

program ural1192;
const
  g=10;
  pi=3.1415926535;
var
  v:longint;
  a:byte;
  k:real;
begin
  readln(v,a,k);
  writeln(v*v*sin(a*pi/90)/g/(1-1/k):0:2);
end.