Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
плохознающия
25.12.2021 10:22 •
Информатика
15 . (паскаль) для каждой составить программу, которая выводит значение true или false. 1) треугольник со сторонами a, b, c - равносторонний. 2) данные числа х, у являются координатами точки, лежащей в первой координатной четверти.
Показать ответ
Ответ:
LEZENR
05.10.2020 14:49
//PascalABC.Net 3.2
{1}
begin
var a:=readArrreal('Вводите: ', 3);
write ((a[0]=a[1]) and (a[1]=a[2]));
end.
{2}
begin
write ((readreal('x =')>0) and (readreal('y =')>0));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Katerka
20.02.2021 05:49
Сообщение записанное из шестидесяти четырёх -символьного алфавита содержит 100 символов . какой объём информации оно несет...
busiginaev2015
20.02.2021 05:49
Редактор, для обработки фотографий и изображений? (первая буква г , десятая буква и всего 11 букв) подскажите...
Ника65790
20.02.2021 05:49
Какие програмы относятся к прикладному по...
yoyo97
03.09.2021 09:58
На питоне.решить в действительных числах уравнение ax^2+bx+c.выдать код ситуации и значения корней: -1 - бесконечное множество решений; 0 - нет действительных корней; 1 - уравнение...
алмазантейтоппппп
10.12.2020 02:36
1. Процесс получения информации - это: а) выполнение домашней работы б) высадка саженцев деревьев в) чтение книги г) решение задачи по математике 2. Укажите процесс хранения...
UnicornAshad
19.05.2022 14:50
Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые...
hsjsjxn
19.06.2021 03:22
Сколько фильмов объёмом 8 Гбайт каждый, поместится на один внешний жёсткий диск с объёмом памяти в 2 Тбайт?...
Aliskaliska27
03.09.2022 09:04
Рассчитать издержки АС, ТС, МС если дана точка F (х;у) x-2500 y-4100...
eDin7
08.08.2020 19:25
К пружине динамометра подвесили сначала грузик массой 225 г, а затем его заменили на грузик массой 0,332 кг. Вычисли, с какой силой растягивается пружина динамометра в каждом...
Совушка200213
20.08.2022 22:58
соч!1.Мәтінді оқы. Тірек сөздерді анықтаңыз. Прочитайте текст, определите 5 ключевые слова. «Қорық» сөзі – өте көне ұғым. Ол Киев Русінің тұсында аң аулауға қатаң тыйым салынған...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
{1}
begin
var a:=readArrreal('Вводите: ', 3);
write ((a[0]=a[1]) and (a[1]=a[2]));
end.
{2}
begin
write ((readreal('x =')>0) and (readreal('y =')>0));
end.