Создайте программу для алгоритмаs =1*2*...*100

Question

Создайте программу для алгоритмаs =1*2*...*100

Answer 1

Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.