| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1283
| {$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q+,R+,S+,T-,V+,X+,Y+} {$M 65520,0,655360} Var S,E,P: Real; Y: LongInt; begin Readln(S,E,P); P:=1-P/100; Y:=0; While S>E do begin Inc(Y); S:=S*P; End; Writeln(Y); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 794 |