var
a, b, c: real;
begin
writeln('Введите 3 любых числа');
readln(a, b, c);
if (a < b) and (a < c) then writeln(a, ' - наименьшее число');
if (b < a) and (b < c) then writeln(b, ' - наименьшее число');
if (c < a) and (c < b) then writeln(c, ' - наименьшее число');
if (a > b) and (a > c) then writeln(a, ' - наибольшее число');
if (b > a) and (b > c) then writeln(b, ' - наибольшее число');
if (c > a) and (c > b) then writeln(c, ' - наибольшее число');
readln; //Убрать если среда разработки не Turbo Pascal
end.
Поделитесь своими знаниями, ответьте на вопрос:
Производилась двухканальная (стерео) звукозапись с частотой дискретизации 64 кгц и 24-битным разрешением. в результате был получен файл размером 120 мбайт, сжатие данных не производилось. определите приблизительно, сколько времени (в минутах) производилась запись. в качестве ответа укажите ближайшее к времени записи целое число, кратное 5. как в ручную посчитать?
2 ^1 * 2^6 * 10^3 * 2^3 *3 = 120* 2^23
тут сокращаем двойки и 1 десятку , + представляем 100 = 5*5*2*2
получаем
2^12 * 3 *25*x= 12*2^23
x = 4*2^11;
x = 8192/25
x= 327 (сек)
x ≈6 минут