var s:string;
k:byte;
begin
readln(s);
k:= <span>length(s);
write(k)
end.</span>
Ответ: одна буква несет 5 бит информации.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ArrRandom(45,15,85); a.Println;
Writeln('Индексы нечетных элементов');
a.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1.IsOdd).
Select(x->x.Item2).Println;
end.
<u><em>Тестовое решение:</em></u>
72 49 49 67 56 85 62 36 53 15 25 33 48 63 71 38 43 57 17 78 41 31 56 55 75 71 54 61 46 63 33 53 68 30 28 28 65 25 68 24 51 44 80 54 32
Индексы нечетных элементов
2 3 4 6 9 10 11 12 14 15 17 18 19 21 22 24 25 26 28 30 31 32 37 38 41
<span>1) На старом механическом вычислительном устройстве – арифмометре – можно было умножать восьмизначные числа на четырехзначные. - 1
Да, можно было.
2) Билл Гейтс написал свою первую программу на языке программирования Basic в 13 лет, и она называлась «Сапёр».
- 0.
Да, в 13 лет и на Бейсике, но это были крестики-нолики.
3) Символом операционной системы Linux является кролик, потому что в
детстве разработчика этой системы в зоопарке укусило именно это
животное. - 0. Символ Linux - пингвин Lilo.
4) В Швейцарии установлен один из дата-центров с множеством
серверов, который подогревает воду в небольшом озере. - 1. Есть такой.
5) ФБР считает, что
Одноклассники – лучшая площадка для общения террористов. - 0. ФБР считает, что это Твиттер.
Число 1010 в двоичной системе = 10 в десятичной системе.
</span>