В программе объявлена переменная: float х=5. Какое значение получит переменная х в результате вычисления следующих выражений? а)х+=2; б)х/=20; в)х*=(х+11); г)х+=х+=х+=11.
Больше всего подходит 3)графическое изображение файла, папки или программы. 1) директория - зачем бы директорию называть еще и ярлыком? Нет, конечно. 2) перемещенный файл, папка или программа - аналогично, это все равно файл, папка или программа. Тоже нет. 4) копия файла, папки или программы - и это не подходит. Копия - это копия, причем тут какие-то ярлыки?
А ярлык - специальный файл, в котором содержится путь к файлу или папке, а также некоторая дополнительная информация. Внешне он отображается в виде иконки - графического элемента интерфейса операционной системы.
//PascalABC.NET 3.1 сборка 1239 var brackets: array [0..2, 0..1] of char := (('{', '}'), ('[', ']'), ('(', ')'));
begin var s := ReadlnString(); var counter := 0; var max_depth := 0;
for var i := 1 to s.Length do begin if s[i] = '(' then counter += 1 else if s[i] = ')' then counter -= 1 else continue; if counter < 0 then begin writeln('brackets error'); Halt; end; if counter > max_depth then max_depth := counter; end;
counter := 0; for var i := 1 to s.Length do begin if s[i] = '(' then counter += 1 else if s[i] = ')' then counter -= 1 else continue;
if (counter = max_depth - 1) and (s[i] = '(') then s[i] := brackets[1, 0] else if (counter = max_depth - 2) and (s[i] = ')') then s[i] := brackets[1, 1] else if (counter = max_depth - 2) and (s[i] = '(') then s[i] := brackets[0, 0] else if (counter = max_depth - 3) and (s[i] = ')') then s[i] := brackets[0, 1]; end;
1) директория - зачем бы директорию называть еще и ярлыком? Нет, конечно.
2) перемещенный файл, папка или программа - аналогично, это все равно файл, папка или программа. Тоже нет.
4) копия файла, папки или программы - и это не подходит. Копия - это копия, причем тут какие-то ярлыки?
А ярлык - специальный файл, в котором содержится путь к файлу или папке, а также некоторая дополнительная информация. Внешне он отображается в виде иконки - графического элемента интерфейса операционной системы.
ответ: 3)
var
brackets: array [0..2, 0..1] of char := (('{', '}'), ('[', ']'), ('(', ')'));
begin
var s := ReadlnString();
var counter := 0;
var max_depth := 0;
for var i := 1 to s.Length do
begin
if s[i] = '(' then counter += 1
else if s[i] = ')' then counter -= 1
else continue;
if counter < 0 then begin
writeln('brackets error');
Halt;
end;
if counter > max_depth then max_depth := counter;
end;
counter := 0;
for var i := 1 to s.Length do
begin
if s[i] = '(' then counter += 1
else if s[i] = ')' then counter -= 1
else continue;
if (counter = max_depth - 1) and (s[i] = '(') then s[i] := brackets[1, 0]
else if (counter = max_depth - 2) and (s[i] = ')') then s[i] := brackets[1, 1]
else if (counter = max_depth - 2) and (s[i] = '(') then s[i] := brackets[0, 0]
else if (counter = max_depth - 3) and (s[i] = ')') then s[i] := brackets[0, 1];
end;
writeln(s);
end.