2 в 26 степени или
б5 536 бит - 8 Мбайт
Var
i,min,max:integer;
a:array[1..70]of integer;
begin
for i:=1 to 70 do
begin
a[i]:=random(100);
write(a[i],' ');
if i=1 then min:=a[i]
else if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln;
writeln('Ответ: ',max-min);
<span>end.</span>
Номер 6.
-121 т.к.
n<3, выводится -1. Переноса на следующую строку нет.
Процедура вызывает себя с аргументом n+3. n+3<3 (2<3) - выводится 2. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Процедура вызывает себя с аргументом n+2. n+2<3 (1<3) - выводится 1. Данная процедура (вызванная первой) вызывает себя также с аргументами n+3 и n+2. Но они будут не меньше 3 и ничего не произойдет.
Номер 7.
1392613
Рассуждения полностью аналогичны предыдущему номеру. Проще всего нарисовать дерево со всеми вызовами процедуры либо просто написать программу.
А меньше b в ~~6 раз можно составить вот такие уравнения:
А+B=30
и I=Ki