Viết chương trình cho bài toán:
Một người gửi tiết kiệm tại 1 ngân hàng với số tiền ban đầu là 100 triệu. Biết lãi suất ngân hàng là 0,5%. Hỏi sau 12 tháng thì người gửi có bao nhiêu tiền trong tài khoản?
Viết chương trình cho bài toán:
Một người gửi tiết kiệm tại 1 ngân hàng với số tiền ban đầu là 100 triệu. Biết lãi suất ngân hàng là 0,5%. Hỏi sau 12 tháng thì người gửi có bao nhiêu tiền trong tài khoản?
var n,pt:real;
i:byte;
begin
n:=100 000 000;
for i:=1 to 12 do begin
pt:+n/100*0.5;
n:=n+pt;
end;
writeln(‘so tien hien co la:’,n:15:0);
readln;
end.
program trongtaikhoan;
uses crt;
var tien:real;
i:byte;
begin
tien:=1000000;
for i:=1 to 12 do
tien:=tien+tien*0.005;
write(‘So tien co trong tai khoan la: ‘,tien);
readln
end.