// PascalABC.NET 3.6.3
uses School;
function Divizors(n: integer): List<integer>;
begin
var L := new List<integer>;
L.Add(1);
L.Add(n);
if n > 3 then
begin
var k := 2;
while (k * k <= n) and (k < 46341) do
begin
if n mod k = 0 then
begin
var t := n div k;
L.Add(k);
if k < t then L.Add(t)
else break
end;
Inc(k)
end;
L.Sort;
end;
Result := L
end;
begin
// 1
if ReadInteger.IsPrime then Println('YES')
else Println('NO');
// 2
ReadInteger.Factorize.First.Println;
// 3
var a := Divizors(ReadInteger);
Print(a.Count, a.Sum)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дуся иванова написала 5 страниц текста, на каждой из страниц поместилось 64 символа. каким информационным объемом в байтах обладает текст всех страниц, если в алфавите дуси 200 символов?
В алфавите 200 символов. Формула: N = 2^i, где - N - кол-во символов в алфавите, а i - информационный объем одного символа.
Пусть i = 7, тогда N будет равно 128, что меньше 200, значит не подходит.
i = 8 - N будет равно 256 - подходит.
i = 8 - значит один символ кодируется 8 битами.
8 бит = 1 байт. Один символ кодируется одним байтом.
1 * 320 = 320 байт - столько занимает текст.
ответ: 320 байт.