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
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.
uses crt;
var a,S,n:integer;
begin
write('nhap so tien can gui:');readln(S);
write('nhap so thang gui tiet kiem:');readln(n);
a:=S/100*0.5;
S:=S+a*n;
writeln('Sau n thang, tong tien ca goc va lai la:',S);
readln;
end.