Viết chương trình tính lãi suất pascal

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

 begin

  n:=n+1;

  t:=t*(102/100);

 end;

write('Can ',n,' thang');

readln

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

star star star star star star star star star star star star star star star star star star star star star star star star star star star star star star

Câu hỏi

Lãi suất gửi tiết kiệm của các ngân hàng trong thời gian qua liên tục thay đổi. Bác An gửi vào một ngân hàng số tiền 5 triệu đồng với lãi suất 0,7%/ tháng. Sau sáu tháng gửi tiền, lãi suất tăng lên 0,9%/ tháng. Đến tháng thứ 10, sau khi gửi tiền lãi suất giảm xuống 0,6%/ tháng và giữ ổn định. Biết rằng bác An không rút tiền ra khỏi ngân hàng thì cứ sau mỗi tháng, số tiền lãi sẽ được nhập vào vốn ban đầu (người ta gọi là lãi kép). Sau một năm gửi tiền, bác An rút được số tiền là (biết trong khoảng thời gian này bác An không rút tiền ra).

A. ≈  5436521,164 (đồng)    

B. ≈  5452733,453 (đồng)    

C. ≈  5452771,729 (đồng)    

D. ≈  5468994,09 (đồng)    

Lãi suất gửi tiết kiệm của các ngân hàng trong thời gian qua liên tục thay đổi. Bác An gửi vào một ngân hàng số tiền 5 triệu đồng với lãi suất 0,7%/ tháng. Sau sáu tháng gửi tiền, lãi suất tăng lên 0,9%/ tháng. Đến tháng thứ 10, sau khi gửi tiền lãi suất giảm xuống 0,6%/ tháng và giữ ổn định. Biết rằng bác An không rút tiền ra khỏi ngân hàng thì cứ sau mỗi tháng, số tiền lãi sẽ được nhập vào vốn ban đầu (người ta gọi là lãi kép). Sau một năm gửi tiền, bác An rút được số tiền là (biết trong khoảng thời gian này bác An không rút tiền ra).

A. ≈ 5436521,164 (đồng)

B. ≈ 5452733,453 (đồng)

C. ≈ 5452771,729 (đồng)

D. ≈ 5468994,09 (đồng)

Lãi suất gửi tiền tiết kiệm của các ngân hàng trong thời gian qua liên tục thay đổi. Bác Mạnh gửi vào một ngân hàng số tiền 5 triệu đồng với lãi suất 0,7% / tháng. Sau 6 tháng gửi tiền, lãi suất tăng lên 0,9% / tháng. Đến tháng thứ 10 sau khi gửi tiền, lãi suất giảm xuống 0,6% / tháng và giữ ổn định. Biết rằng nếu bác Mạnh không rút tiền ra khỏi ngân hàng thì cứ sau mỗi tháng, số tiền lãi sẽ được nhập vào vốn ban đầu (ta gọi đó là lãi kép). Sau một năm gửi tiền, bác Mạnh rút được số tiền là bao nhiêu? (biết trong khoảng thời gian này bác Mạnh không rút tiền ra).

A. 5436566,169 đồng.

B. 5436521,164 đồng.

C. 5452733,453 đồng.

D. 5452771,729 đồng.