Как это решить? function f(n: integer): integer; begin if n 1 then f : = f(n - 1) + g(n - 1) else f - id860103320200614 от sashaaaa5 14.06.2020 12:56

Question

Информатика: Как это решить? function f(n: integer): integer; begin if n 1 then f : = f(n - 1) + g(n - 1) else f : = n + 1; end; function g(n: integer): integer; begin if n 1 then g : = g(n - 1) + f(n) else g : = n - 1; end; чему будет равно значение, вычисленное при выполнении вызова f(5)?

sashaaaa5 · Accepted Answer

program raf105;

const

n = 35;

var

a: array[1..30] of integer;

b: array[1..40] of integer;

c: array[1..n] of integer;

i : integer;

begin

writeln('Заполните массив A');

for i:=1 to 30 do

readln(a[i]);

writeln('Заполните массив B');

for i:=1 to 40 do

readln(b[i]);

writeln('Заполните массив C');

for i:=1 to n do

readln(c[i]);

for i:=1 to 40 do

begin

if (a[i] < 0) or (b[i] < 0) then

begin

writeln('Нет');

break

end;

if c[i] < 0 then

begin

writeln('Да');

break

end;

end.

PascalABC

MOGZ ответил