Viết chương trình tích của các số chia hết cho 6 và tổng của các số lẻ trong dãy số tự nhiên [15;N] ,N nhập từ bàn phím giúp mình với mình cảm ơn nhiề

0 bình luận về “Viết chương trình tích của các số chia hết cho 6 và tổng của các số lẻ trong dãy số tự nhiên [15;N] ,N nhập từ bàn phím giúp mình với mình cảm ơn nhiề”

1. uses crt;
   var n,sum,tich,i : longint;
   begin
           clrscr;
           readln(n);
           tich := 1;
           for i := 15 to n do
                   begin
                           if (i mod 6=0) then tich := tich * i;
                           if (i mod 2=1) then sum := sum + i;
                   end;
           writeln(tich,’ ‘,sum);

           readln;
   end.

   Bình luận