priss666

01.12.2020 23:19 •  Информатика

это вроде бы легко, но не для меня, я не понимаю это
1)Дан рекурсивный алгоритм:

procedure F(n: integer);

begin

writeln(n);

if n < 5 then begin

F(n+3);

F(n*3)

end

end;

Напишите те числа, которые будут выведены при вызове F(1)

2)Определите, какое число будет напечатано в результате выполнения следующего алгоритма:

Var a,b,t,M,R:integer;

Function F(x:integer):integer;

begin

F:=3*(x-2)*(x+6);

end;

BEGIN

a:=-20; b:=20;

M:=a; R:=F(a);

for t:=a to b do begin

if (F(t)
M:=t;

R:=F(t);

end;

end;

write(R);

END.