<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>.
6 Кбайт = 6 * 1024 * 8 бит
Определим, сколько бит занимает один символ сообщения. Для этого разделим это количество бит на количество символов:
(6*1024*8) / 6144 = (6*1024*8) / (6 * 1024) = 8 бит.
Один символ сообщения занимает 8 бит. Для подсчета количества символов, которое можно закодировать этим количеством бит, возведем 2 в степень количества бит:
2^8 = 256
Ответ: 256 символов.
Ответ 17
b
ответ 18
a
ответ 19
b, c, d
ответ 20
нет
<span>Агроном-это человек который выводит новые сорта тех или иных растений.</span>