Untitled

 avatar
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...