Question

[Asuna]

viết chương trình 1 người đàn ông gửi 100tr vào ngân hàng với lãi suất là 10% hỏi bao nhiêu tháng thì người ấy mới có 200tr bằng câu lệnh while....do pascal

Answer 1

[Minh Lệ]

Program HOC24;

var i,d: byte;

n,l: real;

begin

n:=100;

while n<200 do

begin

l:=n/100*10;

n:=n+l;

d:=d+1;

end;

write('Ket qua la: ',d);

readln 

end.