Advertisement
Guest User

Untitled

a guest
Jan 24th, 2018
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.22 KB | None | 0 0
  1.  
  2. var v,p,s,l:real;
  3.  
  4. function sum(v:real;p:real):real;
  5.   var s1:real;
  6.   begin
  7.     s1:=v+v*p/100;
  8.     l:=l+1;
  9.     if s1<s then s1:=sum(s1,p);
  10.   end;
  11.  
  12.  
  13. begin
  14.   readln(v,p,s);
  15.   l:=0;
  16.   sum(v,p);
  17.   writeln(l)
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement