| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1294
| {$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+} {$M 16384,0,655360} var a, b, c, d, r:extended; begin Read (a, b, c, d); a:=a*1000; b:=b*1000; c:=c*1000; d:=d*1000; if a*b-c*d=0 then write ('Impossible.') else begin r:=(a*a+b*b-c*c-d*d); r:=r/(2*(a*b-c*d)); write ('Distance is ',sqrt (a*a+b*b-2*r*a*b):0:0,' km.'); end; end. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 1078 |