| ||||||||||
| Online Judge | Problem Set | Authors | Online Contests | User | ||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Web Board Home Page F.A.Qs Statistical Charts | Current Contest Past Contests Scheduled Contests Award Contest | |||||||||
Help! Where is wrong?var
rr,m,y,i:longint;
sum,r,rate:extended;
begin
readln(rr,m,y);
r:=1+(rr+0.0)/100; sum:=m;
for i:=1 to y do sum:=sum*r;
write(trunc(sum));
end.
Followed by: Post your reply here: |
All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator