Tin 8 : sử dụng câu lệnh for…do : Một người gửi số tiền N vào ngân hàng vs lãi suất 5,5% trên 1 năm . hỏi M tháng người ấy có bao nhiêu tiền , với M,N được nhập từ bàn phím.
Tin 8 : sử dụng câu lệnh for…do : Một người gửi số tiền N vào ngân hàng vs lãi suất 5,5% trên 1 năm . hỏi M tháng người ấy có bao nhiêu tiền , với M,N được nhập từ bàn phím.
program lai_suat;
uses crt;
var m,n,i:integer;
tien,lai:real;
begin
clrscr;
write(‘Nhap so tien gui: ‘); readln(n);
write(‘Nhap so thang gui: ‘); readln(m);
lai:=0.055/12;
for i:=1 to m do
tien:=tien+tien*lai;
write(‘So tien nhan duoc sau ‘,m,’ thang la: ‘,tien:2:2);
readln;
end.