viết hàm tính tích các số chẵn từ k đến p (k p là hai số nguyên dương và k> p)
Quảng cáo
1 câu trả lời 230
1 năm trước
uses crt;
var i,n,s:longint;
begin
clrscr;
write('n='); readln(n);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln('tich cac so le tu 1 toi ',n,' la: ',s);
readln;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
22300
Gửi báo cáo thành công!