<em>// PascalABC.NET 3.2, сборка 1436 от 01.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('Вводите:').ToWords.Select(w->w.ToLower)
.Where(w->w=w.Inverse).Println
end.
<u>Пример</u>
Вводите: Шла Алла по дороге видит дед несет наган
алла дед наган
Var s,k: real;
i:integer;
Begin
Write('Введите стоимость 1 кг конфет: ');
Readln(s);
for i:=1 to 10 do begin
k+=1;
Writeln('Стоимость ', k*0.1, ' кг конфет = ', k*0.1*s);
end;
end.
Ответ:
a) 1 1 0 1 = 1
b) 1 1 0 1 = 1
c) 0 0 0 1 = 1
d) 0 0 0 1 = 1
Объяснение:
Напиши,если нужно объяснение)
Всего объем сообщения 3кб = 3072 байт = 24576 бит
На кодирования одного символа ушло 24576 : 6144 = 4 бит/символ
С помощью 4 бит можно закодировать < 2^4 символов
Ответ: Символов меньше 16.