Var T,n,i:integer;
begin
readln(n);
while n mod 2 =0 do begin
write('nhap lai n:'); readln(n);
end;
T:=1;
for i:=1 to n do
if i mod 2 <>0 then T:=T*i;
write(T);
end.
mình làm TH n lẻ thôi, TH n chẵn bạn lm tương tự nha :3
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Viết chương trình tính tổng n số nguyên tố đầu tiên với n nhập từ bàn phím
Viết chương trình tính tổng sau:A= 1+1/3+1/5+⋯+1/n (với n nhập từ bàn phím) *
Tin8
Viết chương trình nhập N số nguyên từ bàn phím, hãy tính và in ra màn hình kết quả của tổng các số nhập vào ( sử dụng lệnh for... do) hoặc (lệnh while..... do )
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết công thức pascal nhập số n từ bàn phím . xuất ra màn hình các số chia hết cho 2 và 5 từ 1 đến n
Viết chương trình nhập vào 1dãy n số (n được nhập từ bàn phím) tìm giá trị lớn nhất trong dãy vừa lập
