Question

Mik muốn hỏi Cách viết chương trình tính tích T=1x2x3x4x….xn bằng hai cách while do với for do làm ơn giúo mìn hả với ạ

Answer 1

while..do

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=1; i:=1;

while i<=n do

begin

t:=t*i;

i:=i+1;

end;

write('T = ',t);

readln

end.

Answer 2

for..do

Program HOC24;

var i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=1;

for i:=1 to n do t:=t*i;

write('T = ',t);

readln

end.