напишите программу, которая выводит на экран значение n! включая следующую функцию function factorial (n:integer) : integer; var p, i:integer; begin p:=1; for i:=1 to n do p:=p*i; factorial:=p; end;

Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);

var a, R : integer; Function F (x : integer) : integer; begin if x< = 0 then F:=0 else F:=x + F (x-2); end; begin a:=8; R:=F (a); write (R); end. В паскале ответ 20, как он получается? объясните поподробнее

6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.

1) Дана рекурсивная функция: function f (n: integer) : integer; begin if n>100 then f:=n-10 else f:=f (f (n+11)) end; Вычислите f (98).

1) Написать программу, которая вводит массив из 10 целых чисел и выводит на экран этот же массив в прямом и обратном порядке.