Untitled
unknown
pascal
4 years ago
288 B
5
Indexable
uses crt; var a:real; t,i:byte; begin clrscr; readln(a,t); while t>=3 do begin t:=t-3; a:=a*(100+2)/100; end; for i:=1 to t do a:=a*(100+0.1)/100; write(a:0:2); readln end.
Editor is loading...
uses crt; var a:real; t,i:byte; begin clrscr; readln(a,t); while t>=3 do begin t:=t-3; a:=a*(100+2)/100; end; for i:=1 to t do a:=a*(100+0.1)/100; write(a:0:2); readln end.