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 1 :

uses crt;

var i, n, d : integer;

begin

clrscr;

d := 0;

write('nhap so duong n : ');readln(n);

for i := 1 to n do

if i mod 2 <> 0 then d := d + 1;

writeln('co ', d ,' so la so le');

readln

end.

Bài 2 :

uses crt;

var i, n, d : integer;

begin

clrscr;

d := 1;

write('nhap so duong n : ');readln(n);

for i := 1 to n do

d := d * i;

writeln(n,'! = ', d);

readln

end.

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.