На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом.
1) Строится двоичная запись числа N.
2) К этой записи дописываются справа ещё два разряда по следующему правилу:
а) складываются все цифры двоичной записи числа N, и остаток от деления суммы
на 2 дописывается в конец числа (справа). Например, запись 11100 преобразуется
в запись 111001;
б) над этой записью производятся те же действия справа дописывается остаток от
деления суммы её цифр на 2.
Полученная таким образом запись (в ней на два разряда больше, чем в записи исходного
числа N) является двоичной записью искомого числа R.
Укажите минимальное число R, которое превышает число 97 и может являться результатом
работы данного алгоритма. В ответе это число запишите в десятичной системе счисления.
var
a:array [1..9] of real;
i,k:integer;
j:real;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=(random(410)+100)/10;
write(a[i],' ');
end;
writeln;
writeln('Массив после увелечения минимального элемента на 100:');
k:=1;
for i:=2 to 9 do
if a[i]<a[k] then k:=i;
a[k]:=a[k]+100;
for i:=1 to 9 do
write(a[i],' ');
writeln;
writeln('Массив после престановки максиального элемента с первым:');
j:=a[1];
a[1]:=a[k];
a[k]:=j;
for i:=1 to 9 do
write(a[i],' ');
writeln;
end.
3 задание
var
a:array [1..10] of integer;
i,mn,mx:integer;
begin
writeln('Введите массив:');
for i:=1 to 10 do
readln(a[i]);
mn:=1; mx:=1;
writeln('Массив');
for i:=1 to 10 do
begin
if a[i]<a[mn] then mn:=i;
if a[i]>a[mx] then mx:=i;
write(a[i],' ');
end;
i:=a[mx];
a[mx]:=a[mn];
a[mn]:=i;
writeln;
writeln('Массив после престановки:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.