Question

[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

Answer 1

[Nguyễn Lê Phước Thịnh]

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.