Question

cho phép tính T= 1x2x3x4...200

a, xác định output

b, nêu bước giải bài toán trên

c, viết trương trình sử dụng vòng lập fortudo để giải bài toán trên

Answer 1

a) Output: Tích của dãy số từ 1 đến 200

b)

-Bước 1: T←1; i←1;

-Bước 2: T←T*i; inc(i);

-Bước 3: nếu i<=200 thì quay lại bước 2

-Bước 4: Xuất t

c) uses crt;

var i:integer;

t:real;

begin

clrscr;

t:=1;

for i:=1 to 200 do

t:=t*i;

writeln(t:0:0);

readln;

end.