На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом. 1) Строится двоичная запись числа N. 2) Справа дописывается бит чётности. 3) Справа дописывается ещё один бит чётности. Полученная таким образом запись (в ней на два разряда больше, чем в записи исходного числа N) является двоичной записью искомого числа R. Укажите минимальное число N, после обработки которого с этого алгоритма получается число, большее, чем 98. В ответе это число запишите в десятичной системе.

Будет выведено: sr=4.5

Объяснение:

Расписал подробно и с комментариями.

program a78;  //Название программы

var i,s:integer; sr:real;  //Объявление переменных

const a:array [1..6] of integer = (1,7,3,6,0,10);  //объявление массива

 begin //тело программы

  s:=0;  //присваиваем s к 0, своеобразный буфер

  for i:=1 to 6 do  //для значений i от 1 до 6 выполняй следующие действия:

    s:=s+a[i];  //тело цикла, то что будет циклиться и выполняться

  sr:=s/6;  //тело цикла, то что будет циклиться и выполняться

  writeln('sr=',sr);   //вывод значения

end.  //конец программы

Будет выведено: sr=4.5

Объяснение:

Расписал подробно и с комментариями.

program a78;  //Название программы

var i,s:integer; sr:real;  //Объявление переменных

const a:array [1..6] of integer = (1,7,3,6,0,10);  //объявление массива

 begin //тело программы

  s:=0;  //присваиваем s к 0, своеобразный буфер

  for i:=1 to 6 do  //для значений i от 1 до 6 выполняй следующие действия:

    s:=s+a[i];  //тело цикла, то что будет циклиться и выполняться

  sr:=s/6;  //тело цикла, то что будет циклиться и выполняться

  writeln('sr=',sr);   //вывод значения

end.  //конец программы