Bài 22:

Program baitap;

Uses crt;

Var a:integer; 

Begin

Clrscr;

Write('Nhap so bat ki:'); Readln(a);

If sqrt(a)=trunc(sqrt(a)) then writeln('Do la so chinh phuong')

Else writeln('Do khong phai la so chinh phuong');

Readln

End.

Bài 23:

Program baitap;

Uses crt;

Var T:longint;

      N,i:integer;

Begin

Clrscr;

Writeln('Nhap so bat ki:'); Readln(N);

T:=1;

For i:=1 to N do T:=T*i;

Writeln(N,'!=',T);

Readln

End.

Bài 22:

Ý tưởng: lấy phần nguyên của căn bậc hai của N rồi bình phương lên xem có bằng N không. Nếu bằng thì là số chính phương, nếu không thì không là số chính phương

Vd:

căn 4 = 2

2^2 = 4 => số chính phương

căn 6 = 2.4494.... => lấy phần nguyên nên căn 6 = 2

2^2 = 4 != 6

=> không là số chính phương

var n, canBacHai : longint;

begin

      write('Nhap N = '); readln(N);

      canBacHai := trunc(sqrt(N));

      if sqr(canBacHai) = N then

            write('La so chinh phuong!')

      else

            write('Khong la so chinh phuong!');

end.

Bài 23:

var i, N : integer;

      giaiThua : int64;

begin

      giaiThua := 1

      write('N = '); readln(N);

      for i := 2 to N do

            giaiThua := giaiThua * i;

      write('Ket qua: ', giaiThua);

end.