Untitled

mail@pastecode.io avatar
unknown
pascal
2 years ago
288 B
2
Indexable
Never
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.