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

Обсуждение задачи 1011. Кондукторы

Filippov Nuckolas SSAU#2's ACprogram is HERE!
Послано Nickolas 15 фев 2003 21:41
program conductors;
var p,q:real;
    i:longint;
    px,qx:real;
begin
  read(p);
  read(q);
  p:=p/100;
  q:=q/100;
  for i:=1 to 11000 do begin
    px:=p*i;
    qx:=q*i;
    px:=trunc(px)+1;
    if frac(qx)=0 then qx:=qx-1 else qx:=trunc(qx);
    if (px<=qx)and((px/i)>p)and((qx/i)<q) then begin writeln(i);
break; end;
  end;
end.