`@ mikucute`

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)$ 

                            Đáp số : $100,15 (đồng)$

# Blackpink in your area

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.