*Ctrình tính và xuất ra tổng các số lẻ ( chẵn) trong phạm vi từ A đến B *Ctrình tính và xuất ra tổng các số trong phạm vi từ M đến N Giúp e với mai th

0 bình luận về “*Ctrình tính và xuất ra tổng các số lẻ ( chẵn) trong phạm vi từ A đến B *Ctrình tính và xuất ra tổng các số trong phạm vi từ M đến N Giúp e với mai th”

1. uses crt;
   var i,a,b,c,l:integer;
   begin
       clrscr;
       readln(a,b);
       c:=0;l:=0;
       for i:=a to b do
          if i mod 2=0 then c:=c+i
             else l:=l+i;
       writeln(c);
       writeln(l);
   readln;
   end.

   uses crt;
   var i,m,n,t:integer;
   begin
       clrscr;
       readln(m,n);
       t:=0;
       for i:=m to n do
          t:=t+i;
       writeln(t);
   readln;
   end.

   Bình luận