Var
a,r,rvp,rop:real;
begin
Write('Введите сторону квадрата и радиус окружности: ');
Readln(a,r);
rvp:=a/2; rop:=a*sqrt(2)/2;
if r<rvp then Writeln('Окружность расположена внутри вписанной')
else
if r=rvp then Writeln('Введен радиус вписанной окружности')
else
if r<rop then Writeln('Окружность расположена между вписанной и описанной')
else
if r=rop then Writeln('Введен радиус описанной окружности')
else Writeln('Окружность расположена вне описанной')
end.
Тестовое решение:
Введите сторону квадрата и радиус окружности: 8 5
Окружность расположена между вписанной и описанной
1. 2
2. 2
3. 4
4. 9
5. 8
6. 0
Ответ:
Компьютер
Объяснение:
К "О" - "М" и получаем КОМ
П[У]Т[Ь] - заменяем У на ЬЮ, Ь выбрасываем и получаем ПЬЮ
{С]ЕР[ДЦЕ] - выбрасываем то что в скобках и остается ЕР
<span>Две минуты записи цифрового аудиофайла занимают на диске 5,1 Мб. Частота дискретизации — 22050 Гц. Какова разрядность аудиоадаптера? </span>
<span>Решение: 5, 1 Мбайт= 5347737,6 байт 5347737,6 байт: 120 сек : 22050 Гц= 2,02 байт =16 бит</span>
<span>Ответ: 16 бит</span>