c/ Nhập M, N từ bàn phím (M < N). Đếm các số chia hết cho 3 hoặc cho 5 trong pham vi từ M đến N. a/ Một người gửi tiết kiệm 100 đồng. Hỏi sau 12 tháng anh ta sẽ thu được số tiền là bao nhiêu? Biết, lãi xuất mỗi tháng của Ngân hàng là 0.15%.
c/ Nhập M, N từ bàn phím (M < N). Đếm các số chia hết cho 3 hoặc cho 5 trong pham vi từ M đến N. a/ Một người gửi tiết kiệm 100 đồng. Hỏi sau 12 tháng
By Audrey
c.
program dem;
uses crt;
var n,m,i,d:integer;
begin
clrscr;
d:=0;
write(‘Nhap n: ‘); readln(n);
write(‘Nhap m: ‘); realn(m);
For i:=m to n do
If (i mod 3=0) or (i mod 5=0) then d:=d+1;
writeln(‘Cac so chi het cho 3 hoac cho 5 trong pham vi tu M den N la: ‘,d);
readln;
end.
a.
program lai;
uses crt;
const l=0.0015;
var i:byte;
t:real;
begin
clrscr;
t:=100;
for i:=1 to 12 do t:=t+t*l;
write(‘so tien thu duoc la: ‘,t:2:2);
readln;
end.
Phần C :
Program FNG;
Uses crt;
Var m,n,d,i: longint;
Begin
Clrscr;
Write(‘Nhap m va n: ‘); Readln(m,n);
s:= 0;
For i: m to n do
If i mod 3 = 0 then inc(d);
Write(d);
Readln
End.
Phần a)
Người đó nhận được số tiền lãi sâu một tháng là :
100 : 100 × 0,15 = 0,15 (đồng)
Sau một tháng người đó nhận được số tiền gửi và lãi là :
100 + 0,15 = 100,15 (đồng)
Chúc bạn học tốt !
Xin hay nhất ạ