🔻 Sắp xếp chương trình:

5.   Program Sapxep1;

7.   Var i, n : byte;

3.   T : Integer;

11. Begin

6.   Write('Nhap so tu nhien (n<25), n = ');

2.   Readln(n);

4.   i := 1;

1.   T := 1;

9.   While (i <= n) do Begin T := T * i; i := i + 1; End;

8.   Write('T = ', T);

12. Delay(5000);

10. End.

🔻 Chương trình thực hiện:

- Tính tích các số tự nhiên phạm vi 1 đến n

program SapXep1;

var i,n: byte;

begin

write('Nhap so tu nhien (n<25), n=');

readln(n);

t:=1;

i:=1;

while (i<=n) do begin t:=t*i; i:=i+1; endd;

write('T=',t);

delay(5000);

end.

CT tính tính n số tự nhiên đầu tiên với n nhập từ bàn phím