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.