Допиши недостающие команды в алгоритме действий для предоставления общего доступа к ресурсам компьютера 1. Выделить Папку Мой компьютер
2. Выделить нужный диск
3. Вызвать контекстное меню (нажать правую кнопку мыши)
4. Выбрать команду …………
5. Выбрать вкладку …………..
6. Поставить галочку в разделе Открыть общий доступ
​​​​​​​​

Var
  a,r:real;
begin
  Write('Введите a и n: '); Read(a,r);
  if a=2*r then Writeln('Квадрат описан около окружности')
  else Writeln('Квадрат не описан около окружности')
end.



var
  n:char;
  cm:string;
begin
  Write('Введите натуральное двухзначное число: '); Readln(cm);
  Write('Введите цифру от 0 до 9: '); Readln(n);
  if pos('3',cm)>0 then Writeln('В числе есть цифра 3')
  else Writeln('В числе нет цифры 3');
  if (pos('6',cm)>0) or (pos('7',cm)>0) or (pos('9',cm)>0)
    then Writeln('В числе есть цифра 6,7 или 9')
    else Writeln('В числе нет цифры 6,7 или 9');
  if pos(n,cm)>0 then Writeln('В числе есть цифра ',n)
  else Writeln('В числе нет цифры ',n)
end.

Const nx =50;
var z:array[1..nx] of integer; i,j,n,m,d,s,s1,k:integer; sr:real;
begin
write ('Введите число элементов n');read(n);
for i:= 1 to n do begin
z[i]:= random(30)-5;
write(z[i]:3);
if z[i]=0 then m:=i;end;writeln;
if m > 0 then begin
for j:=1 to n do begin
if (j< m) and (z[j] mod 2 = 0) then  s:= s + z[j];
if (j> m) and (z[j] mod 2 = 1) then begin s1:= s1 + z[j]; k:= k +1; end;end;end
else
begin
writeln;
for i:=1 to n do begin
for j:=2 to n do begin
if z[j] > z[j-1] then begind:=z[j-1]; z[j-1]:=z[j];  z[j]:= d;end;end;
end;end;writeln;
sr:= s1 /k;
if m > 0 then begin
writeln('сумму нечетных чисел от последнего нулевого значения до Z[N]', s:6);
write('среднее арифметическое четных чисел, находящихся в массиве до последнего нуля ', sr:6:3);
end
else
for j:=1 to n do
write(z[j]:3);end.