PT
Viết chương trình Pascal bằng lệnh lặp while.....do.Tính và in ra màn hình số tháng để có được số tiền T. Từ số vốn ban đầu là V với lãi suất hàng tháng là l.Biết số tiền mỗi tháng được tính theo công thức T=V+V×l
NT
5 tháng 3 2021 lúc 21:39

uses crt;

var t,v,i,tien:integer;

begin

clrscr;

write('Nhap so von la: '); readln(v);

write('Nhap lai suat:'); readln(i);

write('Nhap so tien can co la: '); readln(tien);

t:=v+v*i;

writeln('So thang la: ',(tien div t)+1);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
H24
Xem chi tiết
TT
Xem chi tiết
KH
Xem chi tiết
H24
Xem chi tiết
NU
Xem chi tiết
DA
Xem chi tiết
KH
Xem chi tiết
TA
Xem chi tiết