VCT nhập vào 1 số n.Tính tích các số chia hết cho n từ 1 đến 10. In tích lưu lại với tên bài 2
2 câu trả lời
uses crt;
var i, S, n : integer;
begin
clrscr;
write('nhap so n : '); readln(n);
S := 1;
for i := 1 to 10 do
if i mod n = 0 then S := S * i;
write('tich cac so chia het cho n tu 1 - 10 = ', S);
readln
end.

