Составить алгоритм, вычисляющий стоимость N компьютеров, которые содержат
комплект, если известна стоимость монитора, системного блока, клавиатуры и мыши?

Показать ответ

Ответ:

настя123456789108

21.03.2022 05:26

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
$\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2}$
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

0,0(0 оценок)

Ответ:

KateySh

11.01.2023 03:32

Program G;
Uses Crt;
Var count, num, ch: integer;
Begin
ClrScr;
Writeln('Год високосный? 1 - да, 0 - нет');
Readln(Ch);
If ch=1 then
  Begin
Writeln('Введите номер месяца');
Readln(num);
Сase num of
   1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
  4, 6, 9, 11: writeln('В месяце 30 дней.');
   2: writeln('В месяце 29 дней');
else writeln('Некорректный ввод данных')
End;
End
Else if ch=0 then
  Begin
Writeln('Введите номер месяца');
Readln(num);
   Сase num of
  1, 3, 5, 7, 8, 10, 12: writeln('В месяце 31 день.');
  4, 6, 9, 11: writeln('В месяце 30 дней.');
  2: writeln('В месяце 28 дней');
else writeln('Некорректный ввод данных')
End;
  End
Else writeln('Некорректный ввод данных');
Readln;
End.

0,0(0 оценок)

Популярные вопросы: Информатика