Tính tổng và tích của các số chẵn từ a đến b

0 bình luận về “Tính tổng và tích của các số chẵn từ a đến b”

1. Program tong_tich;

   Var i,a,b:integer;

         T,S:longint;

   Begin

      Write(‘Nhap a,b :’);readln(a,b);

      S:=0;T:=1;

      For i:=a to b do if i mod 2=0 then

        Begin

           T:=T*i;

           S:=S+i;

         End;

      Write(‘Tong tu ‘a’ den ‘b’ la: ‘,S);

      Write(‘Tich tu ‘a’ den ‘b’ la: ‘,T);

   Readln

   End.

   Bình luận