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
1 câu trả lời
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.
