maxim5251988
27.04.2020 14:43

На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом: 1. Строится двоичная запись числа N.

2. К этой записи дописываются справа ещё два разряда по следующему правилу:

а) складываются все цифры двоичной записи числа N, и остаток от деления суммы на 2 дописывается в конец числа (справа). Например, запись 11100 преобразуется в запись 111001;

б) над этой записью производятся те же действия – справа дописывается остаток от деления суммы её цифр на 2.

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
azamaaaaa
07.02.2020 14:54

8.   cos(x) - ((abs(x-2))/(sqrt(x)+3))+sqr(1+x)

9.   а = 10       b = 10       c = 20

Объяснение:

9.

а = 25       b = 16

пока условие (а + b) > 20 истинно   (да) выполнить

Действия в цикле:

1) а = а - 5

2) b = b - 2

c = а + b

а = 25       b = 16

(25 + 16) > 20       41 > 20       (да)

Действия в цикле:

1) а = 25 - 5 = 20

2) b = 16 - 2  = 14

а = 20       b = 14

(20 + 14) > 20       34 > 20       (да)

Действия в цикле:

1) а = 20 - 5 = 15

2) b = 14 - 2  = 12

а = 15       b = 12

(15 + 12) > 20       27 > 20       (да)

Действия в цикле:

1) а = 15 - 5 = 10

2) b = 12 - 2  = 10

а = 10       b = 10

(10 + 10) > 20       20 > 20       (нет)

Цикл не выполняется

а = 10       b = 10

c = а + b = 10 + 10 = 20

а = 10       b = 10       c = 20

0,0(0 оценок)
Ответ:
ногл289
06.05.2022 06:16
На всякий случай, программа обрабатывающая типизированные файлы.

type
RC=record
Kol:integer;
Dop:integer;
Kol5:integer;
Kol43:integer;
Kol2:integer
end;
var
n:integer;
r:RC;
f:file of RC;
begin
Assign(f,'result.dat');
Reset(f);
// так делается проход по всему файлу
while not Eof(f) do begin
  read(f,r);
  Writeln(r.Kol,',',r.Dop,',',R.Kol5,',',r.Kol43,',',r.Kol2);
  end;
// а так впрямую выбирается запись с указанным номером n (нумерация от 0)
  n:=1;
  seek(f,n);
  read(f,r);
  Writeln(r.Kol,',',r.Dop,',',R.Kol5,',',r.Kol43,',',r.Kol2);
  n:=FileSize(f);
  Writeln('Число записей в файле- ',n);
Close(f)
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота