Var A, B, C: real; begin writeln('Введите сторону A'); readln(A); writeln('Введите сторону B'); readln(B); C := sqrt((a * a) + (b * b)); writeln('Гіпотенуза прямокутного трикутника дорівнює ', c); end.
Обозначим P,Q,A утверждение что х принадлежит соответствующему отрезку ¬А отрицание А, то есть х не принадлежит А перепишем и упростим исходную формулу P→((Q∧¬A)→P) известно что X→Y=¬X∨Y (доказывается просто, например через таблицу истинности) тогда: P→(¬(Q∧¬A)∨P) раскроем скобку ¬(Q∧¬A) с закона де Моргана (стыдно их не знать, если что это такие же основы как и таблицы истинности) P→(¬Q∨¬¬A∨P) = P→(¬Q∨A∨P) = ¬P∨¬Q∨A∨P ¬P∨P=1 то есть всегда истинно и 1∨Х=Х значит ¬P и P можно убрать остается ¬Q∨A Значит х либо принадлежит А либо не принадлежит Q для выполнения этого условия необходимо чтобы все значения Q принадлежали А, тогда минимальное А совпадает с Q ответ А=[40,77]
A, B, C: real;
begin
writeln('Введите сторону A');
readln(A);
writeln('Введите сторону B');
readln(B);
C := sqrt((a * a) + (b * b));
writeln('Гіпотенуза прямокутного трикутника дорівнює ', c);
end.