Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Мертвый0Анархист
18.03.2020 09:04 •
Информатика
Даны стороны треугольника, определить его вид(равнобедренный, равносторонний, обычный) сделать программу в paskal ! !
Показать ответ
Ответ:
chackandrew
07.10.2020 12:58
Vara,b,c:real;Beginread(a,b,c);if(a=b)and(b=c)then writeln('равносторонний');if((a=b)or(b=c)or(c=a))and((a<>b)or(a<>c)or(b<>c))then writeln('равнобедренный');if(a<>b)and(b<>c)and(c<>a)then writeln('простой');end.
0,0
(0 оценок)
Популярные вопросы: Информатика
JustTonight
30.03.2021 13:38
Определите значение целочисленных переменных x и y после выполнения фрагмента алгоритма.x: =336y: =8х: =x div yy: =x mod yпеременная х равна: = переменная у равна:...
sesew228
21.03.2020 21:17
Вчем заключается свойство адресуемости внутренней памяти компьютера?...
AZAZA2008
21.10.2021 21:35
Дана структура Речка. Поля: Название речки, длина, средняя глубина, судоходство (тип bool). Вывести на экран все записи про судоходные речки, длина которых больше...
singerilt
21.10.2021 21:35
Создать файл, содержащий данные о фирмах: название фирмы, фамилия инициалы владельца (одно поле), адрес (три поля: город, улица, дом),телефон. Переписать в текстовый...
lyudsiya1337
07.02.2021 13:16
Составить программу ввода с клавиатуры N целых чисел Program P1; const n=5; var x,i:integer; begin for i:=1 to n do readln(x); end....
Георгий161
16.08.2022 11:26
Здравствуйте,у меня проблема с компьютером.Дело в том,что когда при запуске ноутбука (Packard Bell),вылазит окно с восстановлением системы.Оно вылазит при любой...
EnderDragon500
02.10.2020 22:21
Напишите программы для перевода Робота из начального положения в клетку Б(см.рисунок к заданию 1).Найдите два решения задачи...
theodoorka
02.06.2021 02:37
Определите режим работы гироскопического датчика с камандным блокам кто первый я его потпишусь:) ...
adonnush
04.05.2022 17:15
Exercise1.Give the main forms of the following irregular verbs: go, see, hear, show, write, read, make, take, have, be, meet, give, tell, say, speak, buy, build,...
игроман02
04.05.2022 17:15
A) даны четыре точки: A1(10, 9,6), A2(2,8,2), A3(9, 8,9), A4(7,10,3) Составить:1) уравнение плоскости А1А2А32) уравнение прямой А1А23) уравнение прямой, проходящих...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота