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 раз отличаются объемы текстов.
Поделитесь своими знаниями, ответьте на вопрос:
16. у фокусника есть ящик, в который кладутся монеты: круглые, треугольные и квадратные. если в ящике находятся две круглых монеты, то в результате одного переворачивания ящика они превратятся в одну квадратную, аналогично, две треугольные монеты превратятся в три круглых, а три квадратные – в четыре треугольных. ящик можно переворачивать многократно, не вынимая монеты из него. если количество монет в ящике перед переворотом не кратно указанным значениям, то их остаток не участвует в текущем превращении, но может быть использован в дальнейших превращениях. 16.1. сколько и каких монет получится в ящике, если в него положили 20 круглых монет, а ящик перевернули 3 раза? в ответе последовательно укажите числами через запятую сначала количество круглых монет, потом – треугольных, затем – квадратных. 16.2. сколько и каких монет получится в ящике, если в него положили 10 круглых, 6 квадратных и 8 треугольных монет, а ящик перевернули 3 раза? в ответе последовательно укажите числами через запятую сначала количество круглых монет, потом – треугольных, затем – квадратных. 16.3. сколько и каких монет получится в ящике, если в него положили 10 круглых монет, 6 квадратных и 8 треугольных монет, а ящик перевернули… a) 10 раз? б) 1000 раз? в ответе последовательно укажите числами через запятую количество круглых монет, потом – треугольных, затем – квадратных сначала для ответа на вопрос а), затем – затем на вопрос б), т.е. в ответе должны быть записаны через запятую шесть чисел. 16.4. можно ли, многократно переворачивая ящик, добиться сколь угодно большого числа монет одного вида? в случае положительного ответа напишите слово да, а затем через запятую любую начальную комбинацию монет (круглых, треугольных, квадратных) для получения сколь угодно большого числа монет одного вида. в случае отрицательного ответа напишите слово нет.