Giúp em viết chương trình Pascal bài này với ạ! Nhập số tiền gửi, số tháng gửi. Tính số tiền nhận được với lãi suất 1% Tháng. vd gủi1.000.000 tiền lãi 1 tháng 10.000 Vd gửi 1.000.000 đồng 1 tháng nhận được 1.010.000 Gửi vào 1.000.000 3 tháng nhận hơn số 1.030.000
2 câu trả lời
program bai1;
uses crt;
var tien,x:longint;
t:real;
begin
clrscr;
write('Nhap so tien: '); readln(tien);
write('Nhap thang: '); readln(x);
t:=tien;
for i:=1 to x do
t:=tien*(102/100);
write('So tien nhan duoc la: ',t:2:2);
readln
end.
program bai2;
uses crt;
var tien,t,n,tien2:longint;
begin
clrscr;
write('Nhap so tien ban dau: '); readln(tien1);
write('Nhap so tien muon nhan: '); readln(tien2);
n:=0; t:=tien1;
while t<tien2 do
begin
n:=n+1;
t:=t*(102/100);
end;
write('Can ',n,' thang');
readln
end.
Cho xin ctlhn ạ!
program bai1
uses crt;
var tien,x:longint
t:real;
begin
clrscr
write('Nhap so tien: '); readln(tien)
write('Nhap thang: '); readln(x)
t:=tien;
for i:=1 to x do
t:=tien*(102/100)
write('So tien nhan duoc la: ',t:2:2)
readln
end.
program bai2
uses crt;
var tien,t,n,tien2:longint
begin
clrscr;
write('Nhap so tien ban dau: '); readln(tien1)
write('Nhap so tien muon nhan: '); readln(tien2)
n:=0; t:=tien1;
while t<tien2 do
begin
n:=n+1;
t:=t*(102/100)
end;
write('Can ',n,' thang')
readln
end.
Sai phần gì thì cho mik xin lỗi nhé
