Viết chương trình cho bài toán: Một người gửi tiết kiệm tại 1 ngân hàng với số tiền ban đầu là 100 triệu. Biết lãi suất ngân hàng là 0,5%. Hỏi sau 12 tháng thì người gửi có bao nhiêu tiền trong tài khoản?
Viết chương trình cho bài toán: Một người gửi tiết kiệm tại 1 ngân hàng với số tiền ban đầu là 100 triệu. Biết lãi suất ngân hàng là 0,5%. Hỏi sau 12 tháng thì người gửi có bao nhiêu tiền trong tài khoản?
var n,pt:real;
i:byte;
begin
n:=100 000 000;
for i:=1 to 12 do begin
pt:+n/100*0.5;
n:=n+pt;
end;
writeln(‘so tien hien co la:’,n:15:0);
readln;
end.
uses crt;
var s,a,b:longint;
begin
clrscr;
write(‘a,b=’);readln(a,b);
s:=a*b;
writeln(s);
readln
end.