Câu 3: Viết chương trình thực hiện các yêu cầu sau: a) Nhập số tiền ban đầu cần gửi vào ngân hàng. b) Tính số tiền thu được sau 15 tháng gửi ngân hàng

Câu 3: Viết chương trình thực hiện các yêu cầu sau:
a) Nhập số tiền ban đầu cần gửi vào ngân hàng.
b) Tính số tiền thu được sau 15 tháng gửi ngân hàng là bao nhiêu? Biết rằng lãi suất hàng tháng là 15%.
Lưu ý: Tiền thu được cuối tháng này là tiền gửi của đầu tháng sau .

0 bình luận về “Câu 3: Viết chương trình thực hiện các yêu cầu sau: a) Nhập số tiền ban đầu cần gửi vào ngân hàng. b) Tính số tiền thu được sau 15 tháng gửi ngân hàng”

  1. var t:real; i:byte;

    begin

     write(‘nhap so tien=’); read(t);

    for i:=1 to 15 do t:=t+t/100*15;

    write(‘so tien sau 15 thang gui=’,t); readln end.

    Bình luận
  2. var tien: real;

          i: byte;

    Begin

        Write(‘nhap so tien ban dau: ‘); 

        Readln(tien); 

        For i:=1 to 15 do

                tien:=tien+(tien*0.15);

        Write(‘so tien thu duoc: ‘, tien:12:2);

        Readln

    End.

    Bình luận

Viết một bình luận