Viết chương trình nhập vào 1 số tiền và số tháng gởi tiết kiệm. Sau n tháng, tính tổng tiền của bạn. Biết rằng lãi suất 0.5% một tháng(pascal)

2 câu trả lời

uses crt;

var n, i : integer; t : real;

begin

clrscr;

write('nhap so thang : '); readln(n);

write('nhap so tien : '); readln(t);

for i := 1 to n do t := t + 0.005 * t;

writeln('so tien sau ', n ,' thang : ', t:2:0);

readln

end.

program tong_so_tien;

uses crt;

var n,i: longint;

s: real;

begin

clrscr;

writeln('CHUONG TRINH TINH TONG SO TIEN');

write('nhap so thang:'); readln(n);

write('nhap so tien cua ban:'); readln(s);

for i:=1 to n do s:=s+0.005*s;

writeln('tong so tien sau ',n,' thang la:',s:0:0);

readln

end.