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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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 ạ

   Bình luận