Поделитесь своими знаниями, ответьте на вопрос:
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