Phương Thuy
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
Nguyễn Lê Phước Thịnh
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ự
Asuna
Xem chi tiết
huyokkkkk
Xem chi tiết
Trần Trương Khắc Triệu
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Lala
Xem chi tiết
Nguyễn Võ Phương Uyên
Xem chi tiết
Đoàn Vân Anh
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Trần Hạ Anh
Xem chi tiết