Nhập 2 số nguyên dương M,N đưa ra tổng các số lẻ trong phạm vi từ M đến N? (Giải hộ mình có cả vẽ hình vuông và ovan nữa mong mn giúp mình)

0 bình luận về “Nhập 2 số nguyên dương M,N đưa ra tổng các số lẻ trong phạm vi từ M đến N? (Giải hộ mình có cả vẽ hình vuông và ovan nữa mong mn giúp mình)”

1. program Min;
   uses crt;
   var i,M,N,tong:integer;
   begin
      clrscr;
      tong:=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) then tong:=tong+i;
      writeln(‘Tong cac so le tu ‘,M,’ den ‘,N,’ la: ‘,tong);
      readln
   end.

   Giải thích thêm: Từ dòng “if M>N then begin… end;” dùng để hoán đổi vị trí của hai số $M,N$ trong trường hợp $M>N$, và nếu $M>N$ thì vòng lặp for không thực hiện được.

   Bình luận

2. Mình không biết vẽ ẽ hình vuông và ovan mong thông cảm.

   uses crt;
   var i,m,n,t:longint;
   begin
   clrscr;
      write(‘Nhap m,n: ‘);readln(m,n);
      for i:=m to n do  
          if i mod 2=1 then inc(t,i); 
      writeln(‘Tong cac so le tu m den n: ‘,t);
   readln
   end.

   Bình luận