Cho thuật toán :
Bước 1:t:=1, i:=1
Bước 2:i:=i+1
Bước 3: nếu i>5 thì chuyển tới bước 5
Bước 4: t:=t*i , quay lại bước 2
Bước 5: Thông báo t và kết thúc thuật toán.
a) Khi kết thúc giá trị của t bằng bao nhiêu?
b) Viết chương trình Pascal thể hiện thuật toán này?
a) T=120
b)
Program HOC24;
var i,t: integer;
begin
i:=1; t:=1;
while i<=5 do
begin
t:=t*i;
i:=i+1;
end;
write(t);
readln
end.