Câu 3: Viết chương trình thực hiện các yêu cầu sau:
a) Nhập số tiền ban đầu cần gửi vào ngân hàng.
b) Tính số tiền thu được sau 15 tháng gửi ngân hàng là bao nhiêu? Biết rằng lãi suất hàng tháng là 15%.
Lưu ý: Tiền thu được cuối tháng này là tiền gửi của đầu tháng sau .
var t:real; i:byte;
begin
write(‘nhap so tien=’); read(t);
for i:=1 to 15 do t:=t+t/100*15;
write(‘so tien sau 15 thang gui=’,t); readln end.
var tien: real;
i: byte;
Begin
Write(‘nhap so tien ban dau: ‘);
Readln(tien);
For i:=1 to 15 do
tien:=tien+(tien*0.15);
Write(‘so tien thu duoc: ‘, tien:12:2);
Readln
End.