PascalABC.NET 3.5.1 + .NET Framework 4.7.1
#1
begin
var n := ReadInteger();
var a := Range(1, n);
//Sum
a.Sum.Println;
//произведение
a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;
//Кол-во кратных 2 и 3
a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;
//Среднее ряда
a.Average.Round.Println
end.
#2
begin
var A := ReadArrInteger(10);
A.Println;
//максимум
A.Max.Println;
//Сумма кратных 2 и 3
A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println
end.
Дано: текст 3.5 килобайта
Найти: количество символов в тексте
Решение: Итак, текста у нас 3.5 килобайта
Переведём в байты:
3.5 кбайта * 1024 байт\килобайте = 3584 байт.
Так как кодировка не указана выбираем саму распространенную при обучении однобайтовую, тогда символ занимает ровно один байт и значит у нас
3584 символа. Если же используется двухбайтная кодировка, то 3584/2 = 1792 символа
ответ: 3584 для одного байта на символ или 1792 сиволов для двух байтной кодировки.
Задача 2
Дано:
Два текста - одинаковое количество символов.
У первого алфавит мощностью 32 символа,
у второго алфавит мощностью 64 символа
Найти:
во сколько раз отличаются объемы текстов
найдем объем инфомрации символа первого текста
log2(32) = 5 бит (логарифм двоичный от 32)
для второго текста
log2(64) = 6 бит
Пусть текст имеет длину Х
тогда первый текст имеет объем 5x, а второй 6x.
Разделим: 6x/5x = 6/5 или 1.2
ответ: в 6\5 раз отличаются объемы текстов.
ответ:а)3,9 б)0,674 в)0,35 г)8,07 д)7,0048 е)2,0889
Объяснение:
Надеюсь что помгла