1) Дана рекурсивная функция: function f(n: integer): integer; begin if namp;gt;100

1) Дана рекурсивная функция: function f(n: integer): integer; begin if namp;gt;100 then f:=n-10 else f:=f(f(n+11)) end; Вычислите f(98). 2)Что будет написано программой? s:=0; for i:=1 to 3 do for j:=1 to 3 do a[i,j]:=i*j; for i:=1 to 3 do for j:=1 to 3 do s:=s+a[i,j]; writeln(s); 3)Что будет написано программкой? type stringa = array [1..5] of char; var i: integer; t: stringa; procedure P(var s: stringa); begin i:=1; while s[i]