Ответ:
program factorial;
var
n : integer;
f : int64 := 1;
begin
write('n = ');
readln(n);
for var i := 2 to n do f := f*i;
writeln('n! = ', f);
end.
Объяснение:
PascalABC.NET
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
program factorial;
var
n : integer;
f : int64 := 1;
begin
write('n = ');
readln(n);
for var i := 2 to n do f := f*i;
writeln('n! = ', f);
end.
Объяснение:
PascalABC.NET