Program n_1;
var n, k, f:integer;
begin
read(n);
f:=1;
for k:=1 to n do f:=f*k;
writeln(f);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Program n_1;
var n, k, f:integer;
begin
read(n);
f:=1;
for k:=1 to n do f:=f*k;
writeln(f);
end.