, ВСЁ ЧТО ЕСТЬ И В ПРОФИЛЕ ТАКОЕ ЖЕ БУДЕТ С 50. УМНЫЕ РЕБЯТА, Я ЗНАЮ ВЫ ЕСТЬ, ОБРАТИТЕ ВНИМАНИЯ
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.

фейс4    3   26.05.2020 19:38    0