Сколько раз будет вызываться функция f при подсчете f(15)? самый первый вызов тоже считается. например при подсчете f(1) функция будет вызвана 1 раз. , с решением function f(n: integer): integer; var i, sum: integer; begin sum: =1; for i: =2 to n-2 do begin if i*i mod n > n div 2 then sum: = sum + f(i) + i end; f: =sum; end;

Function f(n: integer): integer; var       i, sum: integer; begin       writeln('f(', n,')');       sum : = 1;       for i : = 2 to n - 2 do       begin               if i * i mod n > n div 2 then                       sum : = sum + f(i) + i       end;       f : = sum; end; begin       writeln(f(15)); end. при запуске выдало: f(15) f(3) f(5) f(2) f(3) f(10) f(3) f(4) f(6) f(2) f(4) f(7) f(2) f(5) f(2) f(3) f(12) f(3) f(9) f(4) f(5) f(2) f(3) 122 посчитав строчки получаем 23 раза вызвалась функция)

A: array[1..40] of string; b: array[1..40] of integer; {буду считать что информация по безработице-число} i, n, j, m: integer; begin for i: =1 to 40 do readln(a[i]); readln(b[i]); for i: =1 to 40 do for j: =1 to 40 do if b[i]> b[j] then begin n: =a[i]; a[i]: =a[j]; a[j]: =n; m: =b[i]; b[i]: =b[j]; b[j]: =m; end; writeln('неблагополучные регионы: '); for i: =1 to 3 do writeln(a[i],' ',b[i]); writeln('благополучные регионы: '); for i: =40 downto 38 do writeln(a[i],' ',b[i]); readln; end.

Ответ: 1111 решение для начала определим значение переменных а=1 (высказывание истинно) b=1  (высказывание истинно) c=1  (высказывание истинно) d=0  (высказывание ложно) e=0  (высказывание ложно) перейдем к выражениям. ¬  -  логическое    отрицание (не) ˅ - логическое сложение (или) ˄ - логическое умножение (и) как это выглядит в формулах привычными для нас символами (кроме "не". отрицание остается), замени сразу же переменные известными нам значениями: 1. a˄b˅¬c  =  a*b+  ¬c  =1*1+ ¬1=1*1+0  =  1+0  =  1 2. a˄d˅¬e = a*d+ ¬e = 1*0+  ¬0=1*0+1  =  0+1  =  1 3. a˄b˅¬d = a*b+ ¬d = 1*1+ ¬0=1*1+1  =  1+1 = 1 (у нас же логическое выражение) 4. d˄e˅a = d*e+a = 0*0+1 = 0+1 = 1 таким образом, получаем 1111