Mong mọi người giúp em à cứu em huhu mai em kiểm tra 1 tiết nên em đang cần đáp án rất gấp ạ ! em cảm ơn 1) lập trình nhập 2 số nguyên a và b từ bàn phím ( a<b ) . Hãy tính và đưa ra số lượng số nguyên lẻ nằm trong phạm vi từ a đến b và bản thân các số lẻ được sắp xếp theo thứ tự tăng dần , mỗi số trên 1 dòng ? 2) lập trình từ bàn phím số nguyên N . Hãy tính và đưa ra màn hình N! . ( N giai Thừa )

1)

uses crt;
var a,b,i,d:longint;
begin
clrscr;
   write('a,b(a<b)=');readln(a,b);
   for i:=a to b do if i mod 2=1 then inc(d);
   writeln('So so le: ',d);
   for i:=a to b do if i mod 2=1 then writeln(i);
readln
end.

2)

uses crt;
var a,b,i,d:longint;
begin
clrscr;
   write('a,b(a<b)=');readln(a,b);
   for i:=a to b do if i mod 2=1 then inc(d);
   writeln('So so le: ',d);
   for i:=a to b do if i mod 2=1 then writeln(i);
readln
end.

Bài 1:

program bai1;

uses crt;

var a,b,i,d:integer;

begin

clrscr;

write('Nhap a: ');  readln(a);

write('Nhap b: ');  readln(b);

d:=0;

for i:=a to b do

  if i mod 2=1 then

   begin

     inc(d);

     writeln(i);

   end;

write('=>Trong pham vi tu ',a,' den ',b,' co tat ca ',d,' so nguyen le');

readln

end.

bài 2

program giaithua;

uses crt;
var gt:real;
    n,i:integer;
begin
clrscr;

write('Nhap n: ');
readln(n);
gt:=1;
for i:=2 to n do
 gt:=gt*i;
write('N!= ',gt:1:0);
readln
end.