1. Звукозапись длительностью 90 сек. сохранили в формате моно (1 канал), с частотой дискретизации 16 КГц. Размер файла оказался равным
4000 Кбайт. Сжатие данных не производилось.
Пользователь скопировал фрагмент звукозаписи длительностью 45 сек.,
перекодировал его в формат стерео (2 канала), увеличил частоту
дискретизации до 32 КГц и сохранил полученный результат в новом файле
без сжатия данных.
Определите объём полученного файла, ответ дайте в Кбайт.
Для простоты считайте, что в обоих звуковых файлах нет никакой другой
информации, помимо собственно звука (заголовки файлов отсутствуют).
2. Катя хочет сохранить 4 фотографии, имеющие соотношение сторон 16:9.
Длинная сторона каждой фотографии равна 512 пикселей, а палитра
содержит 224 цветов. Определите наименьший возможный объём всех
фотографий, ответ дайте в Кбайт.
3. В алгоритме RSA для формирования пары ключей вычисляется модуль –
число n, являющееся произведением двух простых чисел p и q. Из теории
чисел известно, что любое натуральное число, не являющееся простым или
единицей, можно разложить в произведение простых чисел единственным
образом.
Разложите число n = 209 на простые множители, в ответе укажите их
сумму.
4. В ИТ-компании работают 90 сотрудников. 55 сотрудников знают Java,
54 сотрудника – Python, 36 сотрудников – С++. Известно, что 51 сотрудник
знает Python и Java одновременно, 11 сотрудников в компании совсем не
владеют никаким языком программирования и никто не знает Java и С++
одновременно. Определите, сколько сотрудников знает одновременно
Python и С++.
5. В выражении используются поразрядные операции над 8-разрядными
целыми числами без знака:
~ – поразрядная инверсия
≫ – поразрядный сдвиг вправо
≪ – поразрядный сдвиг влево
& – поразрядная конъюнкция
| – поразрядная дизъюнкция
Вычислите значение выражения:
~(65 | 66) & ((205 ≫ 2) ≪ 3)
ответ запишите в десятичной системе счисления.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
function IsPrime(n:integer):boolean;
begin
if n<4 then Result:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
Result:=not found
end
end;
begin
Writeln('k=',ArrRandom(ReadInteger('n='),1,999).Println.
Where(x->IsPrime(x)).Count)
end.
Тестовое решение:
n= 10
401 828 780 444 694 965 23 341 673 875
k=3
2. А вот так это пишется с процедурой
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
procedure IsPrime(n:integer; var res:boolean);
begin
if n<4 then res:=True
else begin
var found:= (n mod 2 = 0);
var p:=3;
while (not found) and (sqr(p)<=n) do
begin
found:=(n mod p = 0);
p+=2
end;
res:=not found
end
end;
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var k:=0;
var prime:boolean;
foreach var e in a do begin
IsPrime(e,prime);
if Prime then Inc(k)
end;
Writeln('k=',k)
end.
Тестовое решение:
n= 12
199 43 71 365 417 904 170 212 694 103 161 689
k=4