Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nataliakonstan1
05.04.2020 02:49 •
Информатика
Составить программу, которая определяет три целых числа с клавиатуры, являются ли они сторонами прямоугольного треугольника.
Показать ответ
Ответ:
тетрадках
21.07.2020 15:52
var
a,b,c,g : integer;
// a,b,c - стороны
begin
readln (a,b,c);
// g - находим гипотенузу (наибольшее из чисел)
if a > b then
begin
if a > c then
g := a
else
g := c
end
else
if b > c
then
g := b
else
g := c;
// Если треугольник прямоугольный, то
// сумма квадратов катетов равна квадрату гипотенузы
if (sqr (a) + sqr (b) = sqr(g))
or (sqr (a) + sqr (c) = sqr(g)) then
writeln ('Yes')
else writeln ('No');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
СтаниславШугаенко
17.02.2021 14:28
Запиши верный ответ. 50176 байтов = Кбайт...
pedro2408
22.02.2022 11:14
Между населёнными пунктами A, B, C, D, E построены дороги, протяжённость которых (в километрах) приведена в таблице.Определите длину кратчайшего пути между пунктами B и...
Луноцапка
22.02.2023 17:09
5. Рассмотри изображение, определи какая группа элементов изображена а) предметный указательб) архивв) сноски...
malaxov04
29.03.2021 15:39
Дайте определения терминам: книга , лист , ячейка , диапазон электронных таблиц ....
darunaivastcyk123
12.09.2020 08:22
Сколько бит информации содержит сообщение объемом 0,33 Кбайт Сколько дискет объемом 1.44 Мб необходимо для переноса информации с жесткого диска объемом 30 Гб?...
IlyaLS
15.03.2022 16:24
Питончик. Ввести натуральное число и найти сумму сумму его цифр. Тоже вывести...
AsyaFilipova
07.01.2020 23:35
Повороты. Урок 2 Изучи программный код и определи, какие изменения необходимо внести в алгоритм, чтобы блок «Переключатель» принял истинное значение два раза. изменить значение...
DirolFix
28.02.2021 22:30
Составить таблицу истинности для выражения: не (не А + не С) * не В + D. Желательно на листочке. ...
пргремм6
02.03.2023 03:09
СМ. Найдите площадь круга радиуса R = 55 1/2, см При вычислениях принять п= 3,14...
AleksandraZul
12.06.2020 05:25
Определи лексические, морфологические и синтаксические особенности предложенного текста. Сделай вывод о том, к какому функциональному стилю относится данный текст. (Перенеси...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,g : integer;
// a,b,c - стороны
begin
readln (a,b,c);
// g - находим гипотенузу (наибольшее из чисел)
if a > b then
begin
if a > c then
g := a
else
g := c
end
else
if b > c
then
g := b
else
g := c;
// Если треугольник прямоугольный, то
// сумма квадратов катетов равна квадрату гипотенузы
if (sqr (a) + sqr (b) = sqr(g))
or (sqr (a) + sqr (c) = sqr(g)) then
writeln ('Yes')
else writeln ('No');
end.