Một người gửi tiết kiệm có kì hạn với số tiền Còn lại A đồng, với lãi suất 0.3% mỗi tháng. Hỏi sau N tháng, người đó sẽ nhận được bao nhiêu tiền? Lãi suất sẽ được cộng vào vốn sau mỗi tháng. Với A, N được nhập từ bàn phím
Một người gửi tiết kiệm có kì hạn với số tiền Còn lại A đồng, với lãi suất 0.3% mỗi tháng. Hỏi sau N tháng, người đó sẽ nhận được bao nhiêu tiền? Lãi suất sẽ được cộng vào vốn sau mỗi tháng. Với A, N được nhập từ bàn phím
Program TT;
Uses crt;
Var n,i: longint; a,b: extended;
Begin
Clrscr;
Write(‘Nhap so tien: ‘); Readln(A);
Write(‘Nhap so thang gui tien: ‘); Readln(N);
b:=a;
For i:=1 to n do
A:=A+A*0.003;
Write(‘Tong so tien nhan duoc tu ‘,b:0:2,’ sau ‘,n,’ thang la: ‘,a:0:2);
Readln
End.
program tietkiem;
uses crt;
var
a,lai:real;
n,i:integer;
begin
clrscr;
write(‘So tien ban dau ban gui la ‘);readln(a);
write(‘Ban muon rut tien sau bao nhieu thang ? ‘);readln(n);
for i:=1 to n do
begin
lai:=a*(0.3/100);
a:=a+lai;
end;
writeln(‘Sau ‘,n,’ thang ban se nhan duoc so tien la ‘,a:10:2,’ dong.’);
readln
end.