ac1283.pas

来自「uralcode」· PAS 代码 · 共 14 行

program ural1283;
var
  b,ans:longint;
  a,c:real;
begin
  read(a,b,c);
  c:=1-c/100;
  while a>b do begin
    inc(ans);
    a:=a*c;
  end;
  writeln(ans);
end.