Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var v,p,s,l:real;
- function sum(v:real;p:real):real;
- var s1:real;
- begin
- s1:=v+v*p/100;
- l:=l+1;
- if s1<s then s1:=sum(s1,p);
- end;
- begin
- readln(v,p,s);
- l:=0;
- sum(v,p);
- writeln(l)
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement