На вход алгоритма подаётся натуральное число n. алгоритм строит по нему новое число r следующим образом. 1. строится двоичная запись числа n. 2. к этой записи дописываются справа ещё два разряда по следующему правилу: если n чётное, в конец числа (справа) дописывается сначала ноль, а затем единица. в противном случае, справа дописывается сначала единица, а затем ноль. например, двоичная запись 100 числа 4 будет преобразована в 10001, а двоичная запись 111 числа 7 будет преобразована в 1110. полученная таким образом запись (в ней на два разряда больше, чем в записи исходного числа n) является двоичной записью числа r – результата работы данного алгоритма. укажите минимальное число r, которое меньше 128 и может являться результатом работы данного алгоритма. в ответе это число запишите в десятичной системе счисления.
n=10;
var
a,b:array[1..n] of integer;
i,si,smax:integer;
begin
Writeln('Введите парами длины катетов ',n,' треугольников');
smax:=0;
for i:=1 to n do begin
Read(a[i],b[i]);
si:=a[i]*b[i]; { пополам разделим потом максимальное }
if si>smax then smax:=si
end;
Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
for i:=1 to n do
if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
Writeln
end.
Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20
n=10;
var
a,b:array[1..n] of integer;
i,si,smax:integer;
begin
Writeln('Введите парами длины катетов ',n,' треугольников');
smax:=0;
for i:=1 to n do begin
Read(a[i],b[i]);
si:=a[i]*b[i]; { пополам разделим потом максимальное }
if si>smax then smax:=si
end;
Writeln('Треугольник(и) с максимальной площадью, равной ',smax/2,':');
for i:=1 to n do
if a[i]*b[i]=smax then Writeln('№',i,': ',a[i],'x',b[i]);
Writeln
end.
Пример работы
Введите парами длины катетов 10 треугольников
7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8
Треугольник(и) с максимальной площадью, равной 90:
№2: 18x10
№6: 15x12
№8: 9x20