Ответ на скрине после покупки
Эта программа написана для вычисления факториала числа n. По определению факториал n равен 1*2*…*(n–1)*n.
var n, f, k: integer;
begin
readln(n); f:=1; k:=0;
while k<>n do
begin f:=k*f; k:=k+1; end;
writeln(f)
end.
Что будет выведено на экран, если n=4?