| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1011
| {$N+} Uses Crt; Var P,Q,L: Extended; I:Extended; Begin Read(P,Q); I:=0; While True do begin If Keypressed then Halt; I:=I+1; L:=Int(P*I/100)+1; If L<Q*I/100 then break; End; Writeln(I:0:0); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 1011 |