ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1294. Марсианские спутники

Why WA 10?
Послано Felix_Mate 1 дек 2015 22:46
var
 AD,AC,BD,BC,X,Y:int64;
 CD:real;

BEGIN
 read(AD,AC,BD,BC);

 X:=AD*AC-BD*BC;
 Y:=AD*AC*(BD*BD+BC*BC)-BD*BC*(AD*AD+AC*AC);
 if(X=0)or(Y*X<0) then write('Impossible.')
 else begin
  write('Distance is ');
  CD:=1000*sqrt(Y/X);
  write(CD:0:0,' km.');
 end;
END.