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

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

var
  p,q,q1:real;
  i,p1:integer;
  f:boolean;
begin
  read(p); read(q);
  p:=p/100; q:=q/100;
  f:=true; i:=1;
    while f do begin
                 inc(i);
                 p1:=trunc(p*i)+1;
                 q1:=q*i;
                 if (p1<q1) then f:=false;
               end;
     writeln(i);
end.
I don't understand it too. I have like code