Câu 2; nhập hai số nguyên dương M,N đưa ra tổng các số lẻ trong phạm vi từ M đến N?

0 bình luận về “Câu 2; nhập hai số nguyên dương M,N đưa ra tổng các số lẻ trong phạm vi từ M đến N?”

1. uses crt;

   var m,n,i,s:integer;

   begin

   clrscr;

   readln(m);

   readln(n);

   for i:=m to n do    {chỉ sd trong t/h m<n thôi còn lớn hơn thì bạn có thể sd : for i:=n to m do}

   if i mod 2<>0 then s:=s+i;

   write(s);

   readln;

   end.

   Bình luận

2. uses crt;

   var a:array[1..100] of longint;

   M,N,i:longint;

   begin

   write(‘nhap m,n: ‘);readln(m,n);  {nếu cần thiết bạn viết thêm lệnh kiểm tra xem m<n hay không}     

   for i:=m to n do

   if i mod 2<>0 then tong:=tong+i;

   write(‘Tong cac so le tu m den n la: ‘tong);

   readln

   end.

   Bình luận