Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Размер стереозаписи (без сжатия) измеряется по формуле:
A = 2*D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
A = 2*1200*130*28 бит = 2*1200*130*28 / 8 байт = 1092000 байт
1092000/456000 = 2,4
Ответ:Файл без сжатия в 2,4 раза больше сжатого файла.
//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
PrintMatrix(a);
for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);
PrintMatrix(a);
end.
Где N количество символов.
Т.к в первой букве слова они используют только 2 буквы , то i = 1 (бит)
В оставшихся девяти позициях используются все 48 символов .
По той же формуле i=6 ( округляем всегда в большую сторону)
Получается
1+(6*9)=55 бит
Ответ: 55 бит
4096 Кбайт / (1 * 1024 Кбайт / 8 сек) = 32 сек