Ацинного сообщения 12582912 битов выразить в имвол алфавита записан с 8 цифр двоично ит из 100 символов. какое количество информации несет объем информацинного сообще килобайтах и мегабайтах. 2. каждый символ алфавита запі сколько символов в этом алфавите? 3. алфавит состоит из 100 один символ этого алфавита? 4. сообщение, записанное букв 20 символов. какой объем информации онон 5. производится одноканалы дискретизации 64 гц. при записи испо запись длится 5 минут 20 секунд, ее р каждый сигнал кодируется минима битов. какое из ниже полученного файла, выраженному в килобай 6. производится двухканальная (сте дискретизации 16 кгци глубиной кодирован ее результаты записываются в файл, сме ниже чисел наиболее близко к ps выраженному в мегабайтах? писанное буквами из 64-символьного алфавита, содержит м информации оно несет? ися одноканальная (моно) звукозапись с частотой ц. при записи использовались 64 уровня дискретизации. т 20 секунд, её результаты записываются в файл, причём нал кодируется минимально возможным и одинаковым количеством из ниже чисел наиболее близко к размеру водится двухканальная (стерео) звукозапись с частотой 10 кі ци глубиной кодирования 32 бит. запись длится 12 минут, писываются в файл, сжатие данных не производится. какое из ниже чисел наиболее близко к размеру полученного файла,
Ответы
Треугольник существует, если сумма длин двух любых его сторон больше длины третьей стороны.
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
Длина стороны может быть определена как расстояние между соответствующими сторонами треугольника:
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
type
Point=record
x,y:real
end;
procedure GetPoint(c:char;var M:Point);
begin
Write('Введите координаты точки ',c,': ');
Read(M.x,M.y)
end;
function Dist(a,b:Point):=sqrt(sqr(b.x-a.x)+sqr(b.y-a.y));
begin
var A,B,C:Point;
GetPoint('A',A); GetPoint('B',B); GetPoint('C',C);
var ab:=Dist(A,B);
var bc:=Dist(B,C);
var ac:=Dist(A,C);
if (ab<bc+ac) and (bc<ab+ac) and (ac<ab+bc) then
Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
Тестовое решение:
Введите координаты точки A: -6.9 -5.3
Введите координаты точки B: 0 11.4
Введите координаты точки C: 9 3
Треугольник существует
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Consta: array[1..3]ofinteger=(13, 8, 58); верно ли описан массив?
Автор: Лусине_Ильенков134
Перевести 2500 бит в байты. ответ расписать подробно *
Автор: denisrogachv
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.