Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Daxa666
24.12.2022 17:57 •
Информатика
нужна программа, которая определит по введенным 3 сторонам, существует ли треугольник.
Показать ответ
Ответ:
Страус123552
07.10.2020 22:25
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then write('существует') else write('не существует');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
назар163
16.03.2020 00:27
Известны длина стороны квадрата и радиус окружности.определить поместиться ли квадрат в окружность. как составить программу в паскаль?...
vichka20042018
07.04.2022 17:42
У меня странный во Недавно пропала кнопка *очистить кэш *.Марка телефона Самсунг А10. Все началось с того, что я скачала вирус,и с какого то озарения удалила.После...
AnnaGlyuza0436
26.01.2020 03:36
Что такое система? * Реальный объект Сложный объект объект...
Elino4kaK
26.01.2020 03:36
Персональный компьютер - это.. Система, включающая подсистемы аппаратного обеспечения Подсистема системы человек-компьютер Средства взаимодействия человека и компьютера....
SHIRINA11
12.04.2021 08:53
Выпишите максимальное и минимальное четырехразрядные числа из системы с основанием 3...
87056231946
14.07.2022 11:35
Запишите число, которое будет напечатано в результате выполнения следующей программы: var s, n: integer; begin s := 0; n := 0; while 2*s*s 123 do begin s := s +...
atitova644
02.07.2020 16:44
1. Продолжаем работать с темой «Предыстория информатики». Ссылка на теорию находится в описании урока. 2. По данной теме составляем кроссворд. За эту работу будет...
СофияПодставкина
21.12.2022 21:07
При каких значениях переменных логическое выражение является истинным?...
angelinasestak
11.09.2022 14:01
Решите по информатике даны 4 целых числа. определить сколько из них чётных....
MrsDrew
14.07.2020 20:00
К.Кайсенов задание укажите верный или неверный ответы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,c: real;
begin
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then write('существует') else write('не существует');
end.