AI TRẢ LỜI MIK ĐỀU VOTE 5 SAP VÀ CẢM ƠN Nhập M, N từ bàn phím (M < N). Có bao nhiêu số chia hết cho 3 trong phạm vi từ M đến N.

0 bình luận về “AI TRẢ LỜI MIK ĐỀU VOTE 5 SAP VÀ CẢM ƠN Nhập M, N từ bàn phím (M < N). Có bao nhiêu số chia hết cho 3 trong phạm vi từ M đến N.”

1. program oken;

   uses crt;

   var m,n,dem,i: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(‘tu ‘,m,’ den ‘,n,’ co ‘,dem,’ chia het cho 3′);

   readln;

   end.

   Bình luận

2. program Min;
   uses crt;
   var i,n,m,dem:integer;
   begin
      clrscr;
      dem:=0;
      writeln(‘Nhap m,n: ‘); readln(m,n);
       if m>n then 
      begin
         m:=m+n;
         n:=m-n;
         m:=m-n;
      end;
      for i:=m to n do
         if (i mod 2 <> 0) and ((i mod 3 <> 0) and (i mod 5 <> 0)) then dem:=dem+1;
      writeln(‘So luong cac so le khong chia het cho 3 hoac 5 la: ‘,dem);
       readln
   end.

   Giải thích thêm: Đoạn từ “if m>n then begin…end;” dùng để tráo đổi vị trí của mm và nn khi m>nm>n vì khi m>nm>n thì vòng lặp for không thực hiện được.

   Bình luận