Найди в программе и выпиши из неё заголовок головной программы; раздел описания переменных; раздел описания подпрограммы с указанием имени функции, входных данных, типа результата и операторов функции; раздел операторов головной программы. program n92; var x, y: integer; p: longint; function f (n: integer): longint; var i: integer; p: longint; begin p : =1; for i : =1 to n do p : =p*i; f : =p end; begin write\,('x='); readln\,(x); write\,('y='); readln\,(y); p : = f(x)+f(y)+f(x+y); writeln\,('p=', p) end. Что будет выведено на экран в результате выполнения этой программы? Проверь себя, выполнив программу в среде программирования Паскаль.
Задание

Выполни задание

Найди в программе и выпиши из неё заголовок головной программы; раздел описания переменных; раздел описания подпрограммы с указанием имени функции, входных данных, типа результата и операторов функции; раздел операторов головной программы.

program \(n92\) ;

var \(x, y: integer\) ;

\(p: longint\) ;

function \(f (n: integer)\) :

\(longint\) ;

var \(i: integer; p: longint\) ;

begin

\(p\) : \(=1\) ;

for \(i\) : \(=1\) to \(n\) do \(p\) : \(=p\*i\) ;

\(f\) : \(=p\)

end;

begin

\(write\,('x=')\) ; \(readln\,(x)\) ;

\(write\,('y=')\) ; \(readln\,(y)\) ;

\(p\) : \(= f(x)+f(y)+f(x+y)\) ;

\(writeln\,('p=', p)\)

end.

Что будет выведено на экран в результате выполнения этой программы?

Проверь себя, выполнив программу в среде программирования Паскаль.