Файл данных:
Первое — это архивный шифр. Он состоит из названия фонда, номера фонда, номера описи, номера единицы хранения (дела), номера листа в деле. Пусть будет: ГА. Ф. 111. Оп. 5. Д. 469. Л. 342, 347-347 об., 374 (Государственный архив. Фонд 111. Опись 5. Дело 469. Листы 342, 347-347 оборот, 374)
Название фильма: Бегущий в лабиринте: Лекарство от смерти
Режиссер: УэсБолл
Год выпуска: 2018
Страна: США
Актеры: Кая Скоделарио, Дилан О'Брайэн, Натали Эммануэль, Кэнтрин МакНамара, Томас Сэнгстер, Уолтон Гоггинс, Роза Салазар, Джанкарло Эспозито, Патриция Кларксон, Бэрри Пеппер, Ки Хонг Ли, Джейкоб Лофленд и другие.
Носитель: CD
Отдано: 1
_______________________
Файл друзей:
Фамилия: Колер, Сун
Имя: Скот, Девин
Телефон: +1 650 759-97-50 (США)
Дата выдачи: 1.02.2018 (дата выхода фильма)
Дата возвращения: 11.03.2018
Протокол - http://
доменное имя или ip-адрес - www.сайт.домен
путь - info
файл - search.html
Воздух-вещество, сок-вещество масло-тело молоко-вещество
Что бы перевести число из 10-чной СС в СС с другим основанием (в данной задаче с основанием 8 и 16) надо это число последовательно делить на основание новой СС, записывая остатки от деления в обратном порядке. Это и будет искомое число. При этом учитываем, что двузначные остатки обозначаются буквами английского алфавита, например 10 это A, 11 - B, 12 - C и т.д.
Таким образом получаем:
79 : 2 = 39 (остаток 1)
39 : 2 = 19 ( 1 )
19 : 2 = 9 ( 1 )
9 : 2 = 4 ( 1 )
4 : 2 = 2 ( 0 )
2 : 2 = 1 ( 0 )
1 : 2 = 0 ( 1 )
Собираем остатки в обратном порядке, получаем число 100111,
т.е. 79 (в 10 СС) = 100111 (в 2 СС)
79 : 16 = 4 ( ост. 15 ) ..... 15 соответствует букве F
4 : 16 = 0 ( 4 )
<span>т.е. 79 (в 10 СС) = 4F (в 16 СС)
</span>
Аналогично получаем:
<span>79 (в 10 СС) = 117 (в 8 СС)
169 </span><span>(в 10 СС) = 10100100 (в 2 СС)
</span>169 <span>(в 10 СС) = 244 (в 8 СС)
</span>169 <span>(в 10 СС) = A4 (в 16 СС)</span>
<span>var</span>
s<span>:</span><span>string</span>;
<span>
{функция проверки на палиндром}</span><span>function</span> palind<span>(</span>s<span>:</span><span>string</span><span>)</span><span>:</span><span>boolean</span>;
<span>var</span>
i<span>:</span><span>integer</span>;
fl<span>:</span><span>boolean</span>;
<span>begin</span>
fl<span>:=</span><span>true</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>s<span>) </span><span>div</span><span>2</span><span>do</span>
<span>if</span> s<span>[</span>i<span>]</span><>s<span>[</span>length<span>(</span>s<span>)</span><span>-</span>i<span>+</span><span>1</span><span>]</span><span>then</span>
fl<span>:=</span><span>false</span>;
Result<span>:=</span>fl
<span>end</span>;
<span>{основная программа}</span><span>begin</span>
<span>writeln</span><span>(</span><span>'Введите строку...'</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>;
<span>if</span> palind<span>(</span>s<span>)</span><span>then</span>
<span>writeln</span><span>(</span><span>'Данная строка является палиндромом!'</span><span>)</span>
<span>else</span>
<span>writeln</span><span>(</span><span>'Данная строка НЕ является палиндромом!'</span><span>)</span><span>end</span>.
Без функции:<span>var</span>
s<span>:</span><span>string</span>;
i<span>:</span><span>integer</span>;
palin<span>:</span><span>boolean</span>;
<span>{основная программа}</span><span>begin</span>
<span>writeln</span><span>(</span><span>'Введите строку...'</span><span>)</span>;
<span>readln</span><span>(</span>s<span>)</span>;
fl<span>:=</span><span>true</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> length<span>(</span>s<span>) </span><span>div</span><span>2</span><span>do</span>
<span>if</span> s<span>[</span>i<span>]</span><>s<span>[</span>length<span>(</span>s<span>)</span><span>-</span>i<span>+</span><span>1</span><span>]</span><span>then</span>
fl<span>:=</span><span>false</span>;
<span>if</span> palin <span>then</span>
<span>writeln</span><span>(</span><span>'Данная строка является палиндромом!'</span><span>)</span><span>else</span>
<span>writeln</span><span>(</span><span>'Данная строка НЕ является палиндромом!'</span><span>)</span><span>end</span>.