Решите задачу из информатики

program ab;

var

 a, b: integer;

begin

 write('Введите значения A и B: ');

 read(a, b);

 writeln('Квадрат величины A: ', sqr(a));

 writeln('Квадратный корень величины A: ', sqrt(a));

 writeln('Целая часть при делении двух целых величин A и B: ', a div b);

 writeln('Остаток от деления при делении двух целых величин A и B: ', a mod b);

end.

Объяснение:

program ab;  // Название программы

var

 a, b: integer;  // Целочисленные переменные для хранения значений

begin  // Начало программы

 write('Введите значения A и B: ');  // Вывод сообщения

 read(a, b);  // Считываем значения переменных с клавиатуры

 writeln('Квадрат величины A: ', sqr(a));  // Вычисляем квадрат переменной A

 writeln('Квадратный корень величины A: ', sqrt(a));  // Вычисляем квадратный корень переменной A

 writeln('Целая часть при делении двух целых величин A и B: ', a div b);  // Вычисляем целую часть при делении двух целых величин A и B

 writeln('Остаток от деления при делении двух целых величин A и B: ', a mod b);  // Вычисляем остаток от деления при делении двух целых величин A и B

end. // Конец программы

16 бит

Объяснение:

I = t * f * i * k, где

I - информационный объём аудио файла (размер файла, содержащего запись звука)

t - длительность звучания (секунды)

f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)

i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения

k - количество каналов записи (1 - моно, 2 - стерео и т.д.)

Дано:

t = 2 мин = 120 сек

I = 5,1 Мбайт = 42781900,8 бит

f = 22 050 Гц

k = 1

Найти:

i

I = t * f * i * k

i = I / (t * f * k)

i = 42781900,8 / (120 * 22 050 * 1) = 42781900,8 / 2646000 ≈ 16 бит

1 мин = 60 сек

1 байт = 8 бит

1 Кбайт = 1 024 байт

1 Мбайт = 1 024 Кбайт