Viết phương trình tính tổng các số chẵn nhỏ hơn 20?

0 bình luận về “Viết phương trình tính tổng các số chẵn nhỏ hơn 20?”

1. program oken;

   uses crt;

   var n,chan:integer;

   begin

   clrscr;

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

   for i:=2 to n-1 do if i mod 2 =0 then chan:=chan+n;

   writeln(‘tong cac so chan: ‘,chan);

   readln;

   end.

   Bình luận

2. uses crt;
   var s,i:integer;
   begin
          clrscr;
          s:=0;
          for i:=1 to 20 do if (i<20) and (i mod 2=0) then inc(s,i);
          write(‘Tong cac so chan be hon 20: ‘,s);
          readln;
   end.

   Bình luận