<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(9,-15,24); a.Println(';')
end.
<u>Пример</u>
-13;-2;11;5;4;22;-12;-9;2
Ответ:
Всё очень просто. Смотри!
Объяснение:
1. Ответ: 5 файлов. Файлы имеют разрешение такие как jpeg., tif., doc. и т. д.
2. Папок 4. Папки не имеют разрешиний и в них хранятся файлы. Но они могут быть пустыми.
3. И путь. Нужно просто смотреть по порядку и записывать через слеш /.
Вот:
Е:/Байкал/Рыбы/Омуль. jpeg.
===== PascalABC.NET =====
function GCD(a, b: integer): integer;// НОД
begin
while b <> 0 do
begin
a := a mod b;
Swap(a, b)
end;
Result := a
end;
procedure RedFrac(var a, b: integer);// сокращение дроби
begin
var sgna := Sign(a); // мы должны учитывать знак!
var sgnb := Sign(b); // мы должны учитывать знак!
a := Abs(a);
b := Abs(b);
var d := GCD(a, b);
a := (a div d) * sgna;
b := (b div d) * sgnb
end;
begin
var (p1, q1) :=
ReadInteger2('Дробь 1. Введите числитель и знаменатель:');
var (p2, q2) :=
ReadInteger2('Дробь 2. Введите числитель и знаменатель:');
var p3 := p1 * q1 + p2 * q2;
var q3 := q1 * q2;
RedFrac(p3, q3);
Println(p3, '/', q3)
end.
Глубина цвета = log(65536) / log(2) бит = 16.0 бит
Объем памяти = 256 * 256 пикселей * 16.0 бит = 1048576.0 бит
1048576.0 бит = 131072.0 байт = 128.0 Кбайт = 0.125 Мбайт = 0.0001220703125 Гбайт = 1.1920928955078125e-07 Tбайт
1048576.0 бит = 1024.0 Кбит = 1.0 Мбит = 0.0009765625 Гбит = 9.5367431640625e-07 Tбит
Дано:
N1=256
N2=32
k1=k2=k
Найти:
Решение
i-вес одного символа в битах
N- мощность алфавита, или количество символов
- информационный объем
Ответ. Первый объем больше второго в 1.6 раз