Написать программу на паскале задано целое число n. в ячейку памяти вычислительной машины записывается его двоичное представление (размер ячейки – 1 байт). над содержимым ячейки выполняется преобразование: циклический сдвиг влево на одну позицию. все цифры двоичного числа сдвигаются влево на одну позицию, при этом старший бит переходит в младший. преобразование повторяется восемь раз (после последнего преобразования число становится исходным). напишите программу, которая по введенному натуральному десятичному числу n, вычисляет наибольшее из десятичных чисел, полученных в процессе преобразования. например: 201 представлено в ячейке памяти как 11001001. после первого сдвига влево получаем число 10010011, это соответствует десятичному числу 147. формат входных данных первая строка ввода содержит неотрицательное целое число n. формат выходных данных выведите единственное целое число r — наибольшее число, полученное в процессе преобразований. ограничения 0 ≤ n ≤ 255 пример входных и выходных данных входные данные выходные данные 1 128 143 248
bodik228
1
29.09.2019 23:01
0
Другие вопросы по теме Информатика
1o10019soos
31.08.2019 00:00
bceznaika2
03.12.2021 12:15
Lobaneckste
03.12.2021 12:18
адрдрюе
25.10.2021 00:22
коля725
25.10.2021 00:18
fgttyf
25.10.2021 00:17
seman6501
25.10.2021 00:15
34Настюша1111
31.01.2022 16:12
Популярные вопросы
- Запиши в начальной форме пыхтит и соблюдайте сделай звукобуквенный...
3 - Проверь себя! найди эти слова в тесте. вставь пропущенные буквы....
3 - Метровой палкой измерили глубину воды в бочкк.над водой осталось...
1 - Найти массу и кол-во вещ-ва нитрата алюминия образовавшегося в результате...
2 - Написать эссе про бюджет семьи. отец мать я. просто че нить напишите...
2 - Не дописала решите уравнение: (x+10)+x=5 варианты ответа : а) 2,5....
3 - Разложить на простые множители числа 27,122,144,130,152,145,65...
1 - Характеристика петра муромского какой он был...
1 - Как изменится разность если уменьшаемое увеличить на 0,6...
2 - Найдите область определения выражения а) корень из 12-3х + корень...
3
function Dec2Bin(t: integer): string;
begin
var r: string := '';
while t >= 2 do
(r, t) := (t mod 2 + r, t shr 1);
r := t + r;
Result := '0' * (8 - r.Length) + r
end;
function Bin2Dec(s: string): integer;
begin
Result := 0;
var p := 1;
for var i := s.Length downto 1 do
begin
Result += (s[i].ToDigit) * p;
p *= 2
end
end;
function GenSeqCycle(n: integer): sequence of integer;
begin
var s := Dec2Bin(n);
loop 8 do
begin
yield Bin2Dec(s);
s := s[2:] + s[1]
end
end;
begin
GenSeqCycle(ReadInteger).Max.Println
end.