Câu 3:

Uses crt;
Var
    i,t: LongInt;
Begin
    clrscr;
    t:=1;
    for i:=2 to 10 do t:=t*i;
    write('10! = ',t);
    readln;
End.

Câu 4:

- Giải thích:

x:=8 dùng để gán giá trị của x

y:=2 dùng để gán giá trị của y

If x>y then F:=x*x-y else F:=2*x-y là: nếu x lớn hơn y thì F sẽ bằng x nhân x trừ y, còn nếu x không lớn hơn y thì F sẽ bằng 2 nhân x trừ y

- Ta có: x=8 và y=2 `->` x>y (thoả mãn điều kiện) `->` Thực hiện câu lệnh gán F bằng x*x-y `->` F=8*8-2=62

Vậy sau khi thực hiện, giá trị của F sẽ là 62

Câu 3 :

uses crt;

var i, s : longint;

begin

clrscr;

s := 1;

for i := 1 to 10 do s := s * i;

writeln('10! = ', s);

readln

end.

Bài 2 :

- x := 8; y := 2;

⇒ biến x có giá trị bằng 8; biến y có giá trị bằng 2

- if x > y then F := x * x - y Else F := 2 * x - y;

⇒ nếu x lớn hơn y thì F = x * x - y ngược lại F = 2 * x - y;

- Thực hiện chương trình :

⇒ 8 > 2 ⇒ đúng

⇒ thực hiện lệnh sau then bỏ qua lệnh sau else

⇒ F = 8 * 8 - 2 = 62

⇒ Giá trị F = 62