Ai biết giúp tớ câu này với. Đề : Nhập M,N từ bàn phím (M

17/08/2021 Bởi Jasmine

0 bình luận về “Ai biết giúp tớ câu này với. Đề : Nhập M,N từ bàn phím (M<N). Có bao nhiêu số chia hết cho 3 trong phạm vì từ M đến N?”

1. Program FNG;
   Uses crt;
   Var m,n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap m, n: ‘); Readln(m,n);
           d:=0;
           For i:=m to n do
                   If i mod 3 = 0 then inc(d);
           Write(d);
           Readln
   End.

   Bình luận

2. program oken;

   uses crt;

   var m,n,i,dem:integer;

   begin

   clrscr;

   write(‘nhap m: ‘); readln(m);

   write(‘nhap n: ‘); readln(n);

   if m<n then 

        for i:=m to n do

             if i mod 3=0 then dem:=dem+1;

   writeln(‘cac so chia het cho 3: ‘,dem);

   readln;

   end.

   Bình luận