1. Информатика
  2. Написать программу для определения

Написать программу для определения является ли треугольник прямоугольным (для определения является ли треугольник прямоугольным, необходимо проверить выполняется ли теорема пифагора)

Эвелина2019 Эвелина2019    2   26.08.2019 21:30    0

Ответы
silverg2005p00xxj silverg2005p00xxj  26.08.2020 10:35
Var a,b,c:real;
begin
readln( a,b,c);
if c= sqrt ( sqr(a)+sqr(b)) then writeln(' прямоугольный') else writeln (' не прямоугольный');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Aliskaliska27 Aliskaliska27  20.05.2019 09:20
Три с условием if + решение этих . надеюсь на вашу !...
CURTER CURTER  20.05.2019 09:20
A.найти значения максимального по модулю элемента одномерного целочисленного массива, сформированного случайными числами, и его индекс. вывести массив на экран....
Ира0386 Ира0386  07.09.2019 23:04
Поменять их местами, если нет, то поменять местами вторую и третью цифры. на экран вывести исходное число и число после перестановки. напимер: вводится положительное...
kari2018 kari2018  07.09.2019 22:55
Сообщение на тему: бессознательное совершение информационных преступлений человека...
ольга1716 ольга1716  08.09.2019 00:10
По мишеням произведено 3 выстрела . высказывание pk=«мишень поражена k-тым выстрелом», где k=1,2,3. что означает следующее высказывание: -p1& p2\/p3...
попг попг  08.09.2019 00:10
Водномерном массиве определить сумму четных чисел с использованием div или mod...
Lol666kek Lol666kek  07.09.2019 22:40
1.визначте, про які інформаційні процеси йдеться: a) ви пишете твір; г) уранці вас будить будильник; b) ви дивитеся кінофільм; д) лікар чи лікарка ставить діагноз...
Sveta11111111Love Sveta11111111Love  25.07.2019 04:40
Друзья ! нужно написать программу по созданию смайлика через программу q basik. sсreen 8...
ученик22826 ученик22826  25.07.2019 04:40
Найти максимальный элемент этого массива const n=20; var a: array[1..n] of integer; i,max: integer; begin randomize; for i: =1 to n do a[i]: = random(90)+10; for i:...
DemEntrA132 DemEntrA132  25.07.2019 04:40
Решить в pascalabc : даны пять чисел. определить наименьшее из этих чисел. для проверки: вход 1)1, 2, 3, 4, 5; 2)2, -3, 3, 4, 5 3) -1, -2, -5, 0, 1 4) 0, 5, -3, -7,...

Популярные вопросы