Boolean32. Даны целые числа $$a$$, $$b$$, $$c$$, являющиеся сторонами некоторого треугольника. Проверить истинность высказывания: «Треугольник со сторонами $$a$$, $$b$$, $$c$$ является прямоугольным».
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program Boolean32; var a, b, c: Integer; begin Write('Введите 1 сторону треугольника: '); Readln(a); Write('Введите 2 сторону треугольника: '); Readln(b); Write('Введите 3 сторону треугольника: '); Readln(c); Writeln((Sqr(a)=Sqr(b)+sqr(c)) or (Sqr(b)=Sqr(a)+sqr(c)) or (Sqr(c)=Sqr(a)+sqr(b)) and (a>0) and(b>0) and (c>0)); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
Комментарии: