function Random_Range(x, y : Integer) : Integer;
begin
Random_Range := Random(y) - x;
end;
var
i : Integer;
begin
Randomize;
Writeln( Random_Range(0, 15) ); // [0; 15)
Writeln( Random_Range(0, 16) ); //[0; 15]
Writeln( Random_Range(15, 30) ); //[-15; 15)
Writeln( Random_Range(-10, 5) ); //[10; 15)
ReadLn;
end.
Если это звуковой файл, то увеличить частоту дискретизации
Х - только паскаль,
y - паскаль+бейсик,
z - только бейсик.
x+y+z = 35,
x+y=25,
y+z=22.
И решаем эту системку.
Вычтем из первого третье
x=35-22=13
И это ответ :)
Только на паскале программируют 13 человек.
Разрешающая способность 200 dpi означает, что на отрезке длиной 1 дюйм сканер различит 200 точек.
Необходимо перевести разрешающую способность в точки на сантиметр (1 дюйм=2,54см):
200 dpi/2.54=79точек/см
Следовательно, размер изображения в точках будет 1659*2291 точек
Общее количество точек равно 1659*2291=3800769
Объем рисунка равен 16*3800769=60812304бит=7601538байт=7423 Кб=7,2Мб
8 килобайт-8000 байт, 1 мегабайт- 1000000 байт, дальше там не получится