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.