Какой результат получится после работы программы? Вводится пользователем: 6.

16

Объяснение:

С клавиатуры вводится число 6, это переменная K. Выводится результат функции P.

Её логика: если n (число, которое передаётся функции) = 1, то P = 1, иначе: P = P(n - 1) + 3. В нашем случае n ≠ 1, поэтому выполняется следующая операция:

P = P(n - 1) * 3, поэтому вывод и 16, а не 1.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.