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.
Câu hỏi trong lớp
Xem thêm