1) Дана рекурсивная функция: function f(n: integer): integer; begin if n>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]

1) 91
2) 36
3) 3  (опечатка в условиях: вместо stringa надо писать string)
4) Вроде все верно, но быть может кроме а)