uses crt;
var a,k:real; t,i:integer;
begin
clrscr;
Write('a=');readln(a);
Write('k=');readln(k);
Write('T=');readln(T);
For i:=1 to t do
a:=a+(a/100*k);
Writeln(a:0:8);
readln
end.
Mình dùng thuật toán mà lúc lớp 5 mình học:
Số tiền + (số tiền : 100 x lãi xuất)