Значение переменной 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
120 Мы 5 раз умножаем p*i (i это количество раз; p в начале равен 1) p=1*1*2*3*4*5
Ты бог спс