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.

$#QLinkVN$

EM XEM QUA NHA!