На вход алгоритма подаётся натуральное число n. алгоритм строит по нему новое число r следующим образом. 1) строится двоичная запись числа n. 2) к этой записи дописывается (дублируется) последняя цифра. 3) затем справа дописывается бит чётности: 0, если в двоичном коде полученного числа чётное число единиц, и 1, если нечётное. 4) к полученному результату дописывается ещё один бит чётности. полученная таким образом запись (в ней на три разряда больше, чем в записи исходного числа n) является двоичной записью искомого числа r. укажите минимальное число n, после обработки которого автомат получает число, большее 97 в ответе это число запишите в десятичной системе. скажите , ответ 12?

Internet_Explorer - браузер от M|icrosoft, больше не поддерживается, является стандартным браузером во всех ос от Microsoft кроме Wi|ndows_10. Его называют браузер, нужный для загрузки другого браузера

Oper_a - Довольно мощный браузер с большим количеством средств анонимизации( например встроенный VPN). Сейчас не очень популярен, но занимает большую часть браузеров на старых мобильных ОС(например Symbian)

Fire__fox - очень мощный браузер. Часто стоит по умолчанию в большом количестве Linux_ дистрибудтивов. Легко настраивается и удобен в использовании.

Goog|le_chrome - Браузер от компании Goog|e. Основан на движке собственного проихводства. Имеет встроенную поддержку всех функций и сервисов от Goog|e

Yande_x - Достаточно новый браузер от российской компании. Достаточно удобен в использовании. Интегрируется с сервисами от Yande_x

Задача 1
var
  a:array [1..100] of integer;
  i,n:integer;
begin
  writeln('Введите n <=100');
  readln(n);
  writeln('Введите массив');
  for i:=1 to n do
  readln(a[i]);
  writeln('Массив');
  for i:=1 to n do
  write(a[i], ' ');
  writeln;
  writeln('Элементы равные сумме двух соседей:');
  for i:=2 to (n-1) do
  if a[i]=(a[i-1]+a[i+1]) then write(a[i],' ');
  writeln;   
end.

задача 5
var
  a:array [1..10000] of integer;
  i,n, mx1, mx2:integer;
begin
  writeln('Введите n <=10000');
  readln(n);
  writeln('Введите массив');
  for i:=1 to n do
  readln(a[i]);
  writeln('Массив');
  for i:=1 to n do
  write(a[i], ' ');
  writeln;
  mx1:=1;
  for i:=2 to n do
  if a[i]>a[mx1] then mx1:=i;
  if mx1=1 then mx2:=2 else mx2:=1;
  for i:=1 to n do
  if (a[i]>a[mx2])and(i<>mx1) then mx2:=i;
  writeln('Два числа произведение которых максимально: ',a[mx2],' ',a[mx1]);   
end.