Question

Значение переменной p при n=5 после выполнения программы
ProgrammTest;
Var p,i,n:integer;
Begin
Write('Введите цельное n=')
Readln(n);
p:=1
for i:=1 to n do
p:=p*i;
Writeln(n,'=',p)
End

Answer 1

120
Мы 5 раз умножаем p*i (i это количество раз; p в начале равен 1)
p=1*1*2*3*4*5