'''while <điều kiện>: câu lệnh số tiền gửi là nhập vào số tiền lãi là 7%/năm in số tiền mẹ thu được hàng năm( gốc+lãi) số năm gửi là 10 năm input: gốc output: gốc + lãi

1 câu trả lời

uses crt;

var n,s,d: longint;

begin

clrscr;

write ('nhap so tien gui vao: ');   readln (n);

d:=0;

s:=0;

while d<>10 do

begin

d:=d+1;

s:=s+(n*(7/100));

end;

writeln ('tong tien la: ',s);

readln;

end.

Câu hỏi trong lớp Xem thêm