| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1084
| {$N+} Var C,B,S,T: Extended; Begin Read(B,C); B:=B/2; If C>B*Sqrt(2) then begin Writeln(B*B*4:0:3); Halt; End; If C<B then S:=Pi*C*C else begin S:=8*((Pi*C*C/(2*Pi)*ArcTan(Sqrt(C*C-B*B)/B)-Sqrt(C*C-B*B)*B/2)); If S>0 then S:=Pi*C*C-S else S:=Pi*C*C; End; Writeln(S:0:3); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 1139 |