a) Bước giải :

B1 : Khai báo các biến

B2 : Cho biến i chạy từ giá trị 1 đến giá trị 200 và thực hiện câu lệnh gán giá trị để tính tích T

B3 : In ra màn hình kết quả.

B4 : Kết thúc câu lệnh.

b) Chương trình :

Program dungdaytuchieu;

Uses crt;

Var i , T : longint;

Begin clrscr;

T :=1;

For i :=1 to 200 do T :=t*i;

Writeln('T='t);

readln

end.

a)
B1: T←1; i←1;

B2: Nếu i<=200 thì chuyển qua B3, ngược lại chuyển đến B5.

B3: T←T*i; i←i+1;

B4: Quay lại B2.

B5: Thông báo kết quả T ra màn hình và kết thúc.

b)

-Sử dụng while-do:(bạn dùng if-then thì không lặp đc)

program oken;
uses crt;
var t:longint;
    i:byte;
begin
        clrscr;
        t:=1; i:=1;
        while i<=200 do
                begin
                        t:=t*i;
                        i:=i+1;
                end;
        writeln('Tich T: ',t);
        readln;
end.

-Sử dụng for-to-do:

program oken;
uses crt;
var t:longint;
    i:byte;
begin
        clrscr;
        t:=1;
        for i:=1 to 200 do
                t:=t*i;
        writeln('Tich T: ',t);
        readln;
end.