Дан рекурсивный алгоритм: procedure F(n: integer);
begin
writeln('*');
if n > 0 then begin
F(n-2);
F(n div 2);
F(n div 2);
end
end;
Сколько символов "звездочка" будет напечатано на экране при выполнении вызова F(5)?

ответыДля хранения данных в компьютере служит память (б).Для ввода графической информации (рисунков, чертежей и т. д.) с бумажного листа служит сканер (а).Какое из перечисленных ниже устройств является устройством вывода информации с компьютра? Принтер (в).После отключения питания компьютера теряется вся информация, которая находилась в ОЗУ (оперативное запоминающее устройство) (г).Для вывода звуковой информации служит колонки (г).Какое из устройств компьютера не входит в состав системного блока? Принтер (б).Что такое информация? Сведения об окружающем нас мире (в).Что такое клавиатура? Устройство для ввода информации (г).Что такое процессор? Устройство для обработки информации (б).Что такое программное обеспечение компьютера? Совокупность всех программ компьютера (г).

//Боль
//Pascal ABC.NET 3.1 сборка 1219

Var
 f:text;
 max,min,p:real;
 maxn,minn,n,i:integer;
 ar:array of real;
 s:string;
begin
max:=real.MinValue;
min:=real.MaxValue;
n:=0;
 assign(f,'text.txt');
 reset(f);
 while not(Eof(f)) do
  begin
   read(f,p);
   inc(n);
   setlength(ar,n);
   ar[n-1]:=p;
   if ar[n-1]>max then
    begin
     max:=ar[n-1];
     maxn:=n-1;
    end;
   if ar[n-1]<min then
    begin
     min:=ar[n-1];
     minn:=n-1;
    end;
  end;
 close(f);
swap(ar[minn],ar[maxn]);
for i:=0 to n-1 do
if i<>n-1 then s:=s+floattostr(ar[i])+' '
else
s:=s+floattostr(ar[i]);
rewrite(f);
write(f,s);
close(f);
end.

Пример содержимого text.txt:
0 -2.1 1.1
Пример содержимого text.txt после работы программы:
0 1.1 -2.1