2. Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln(n); if n 7 then begin F(n+3); F(n*2) - id1145210820201130 от MariaVonlaar 30.11.2020 13:23

Question

Информатика: 2. Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln(n); if n 7 then begin F(n+3); F(n*2) end end; Найдите сумму чисел, которые будут выведены при вызове F(2).

MariaVonlaar · Accepted Answer

Const n=10;
type ar=array[1..n+1] of integer;
var
a:ar; i,p:integer;
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(31);
write(a[i]:4);
end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n
then writeln('Значение 17 найдено, номер элемента = ',i)
else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
14 5 7 17 25 15 28 0 24 0
Значение 17 найдено, номер элемента = 4

2. Дан рекурсивный алгоритм: procedure F(n: integer); begin writeln(n); if n < 7 then begin F(n+3); F(n*2) end end; Найдите сумму чисел, которые будут выведены при вызове F(2).

MOGZ ответил