Question

Viết chương trình tính tích S=1×2×3×4×5...×100

Answer 1

Program HOC24;

var i: byte;

s: longint;

begin

s:=1;

for i:=1 to 100 do s:=s*i;

write('S = ',s);

readln

end.

Answer 2

var i:integer;

s: longint;

begin

s:=1;

for i:=2 to 100 do s:=s*i;

write('S = ',s);

readln

end.

Answer 3

var

s:longint;

begin

     clrscr;

s:=1;

for i:=1 to 100 do s:=s*i;

     readln;

end.

Answer 4

var

s:longint;

begin

     clrscr;

s:=1;

for i:=1 to 100 do s:=s*i;

write(s);

     readln;

end.