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ều
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);