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

16

Объяснение:

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

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

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

var

x,y: real;

begin

x: =-1;

while x< =1 do

begin

y: =x*x*x;

writeln(y);

x: =x+0.1;

end;

end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно