Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
pyataevadasha
20.03.2020 12:20 •
Информатика
Напишите програвмирования на языке программирования pascal: 1) определить является ли треугольник со сторонами a,b,c равносторонним. 2) даны m и n. если m≠0, то заменить каждое из чисел большим из них числом, иначе заменить 0.
Показать ответ
Ответ:
vaper4
04.10.2020 18:37
Var
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
Пример
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
Пример
7 2
m=7, n=7
0,0
(0 оценок)
Популярные вопросы: Информатика
11lol22
11.01.2023 12:41
1. скорость передачи данных через аналоговый модем равна 512 000 бит/с. через данное соединение файл размером 425 килобайт. определите время передачи файла в секундах....
marinad34
11.01.2023 12:41
(pascal) заполнить квадратную матрицу а[5,5] 1 2 3 4 5 2 3 4 5 0 3 4 5 0 0 4 5 0 0 0 5 0 0 0 0...
Xxxin
02.04.2021 15:13
Опишите как переместить файл; удалить файл. (только кратенько. пример: скопировать файл: выбрать, скопировать, сохранить в другой папке. результат-два одинаковых файла)...
zadireevaalina
21.05.2021 14:41
Имеет в запасе 300 литров воды: .вода=300а.хватит ли воды для тушения с именем п1,еслип1. сложность=400...
Mашka
21.05.2021 14:41
Чего можно создать документ? информатика 3 класс...
anna3548202
21.05.2021 14:41
Придумать с использованием абсолютной и относительной ссылкой...
abcdeshnik
24.06.2021 02:55
Св паскале в одномерном массиве, состоящем из n элементов, вычислить: 1) количество элементов массива, больших с 2) произведение элементов массива, расположенных после...
тина123болото
24.06.2021 02:55
Составить программы в с++. дан массив 1)сколько четных чисел срежи положительных 2)подсчитайте отдельно среднее значение всех элементов, которые 10,и среднее значение...
viktoriakruminaВика
24.07.2021 12:05
Заранее ! выполняем вычисления с программы калькулятора 1. запустите программу калькулятор. [пуск] - [программы] - [стандартные] - [калькулятор] 2. расположите окно калькулятора...
andron92
07.06.2020 22:57
Найти значение функции y=x^2+1 на отрезке [5; решить в паскале...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
Пример
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
Пример
7 2
m=7, n=7