Na đi gửi 100 đô vào ngân hàng biết lãi mỗi tháng là 1% và tiêu đi được cộng thẳng vào khoản 12 tháng hỏi Na được tổng số tiền là bao nhiêu Viết chương trình xem được tổng số tiền là bao nhiêu
2 câu trả lời
uses crt;
var A : real; i : byte;
begin
clrscr;
write('Nhap so tien = '); readln(A);
i := 1; while i <= 12 do
begin A := A + A * 0.01;
i := i + 1; end;
write('Tong so tien = ', A : 5 : 3);
readln
end.
Program NN;
Uses crt;
Var i: longint;
s: extended;
Begin
Clrscr;
s:=100;
For i:=1 to 12 do
s:=s*101/100;
Write('S = ',s:0:2);
Readln
End.
Câu hỏi trong lớp
Xem thêm
