Giúp mình 2 bài này nhé
Bài 1 : tính và đưa ra màn hình Số lượng các phần tử lẻ trong phạm vi từ 1 đến N ( N là số nguyên dương nhập từ bàn phím )
Bài 2 : Tính N! ( N là số nguyên dương nhập từ bàn phím)
Giúp mình 2 bài này nhé
Bài 1 : tính và đưa ra màn hình Số lượng các phần tử lẻ trong phạm vi từ 1 đến N ( N là số nguyên dương nhập từ bàn phím )
Bài 2 : Tính N! ( N là số nguyên dương nhập từ bàn phím)
Bài 2:
var n,kq,i:longint;
begin
kq:=1;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
kq:=kq*i;
write(‘Gia thua cua n là: ‘,kq);
readln;
end.