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

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

whi i get WA end please tell me how i mast do it and i will tell you senc your?here is a my program
Послано I am david. Tabo. 24 апр 2002 17:09
const max=20000;

var x:longint;
    p2,p1:real;

begin
  readln (p1,p2);
  for x:=1 to max do
    if abs(p2/100*x-p1/100*x)>=1 then
      begin
        writeln (x);
        halt;
      end;
end.