Даны три числа.

@spawn101 · Регистрация: 26.09.2010

Студворк — интернет-сервис помощи студентам

1. Даны три числа a, b, c. Определить максимальное из них и записать в переменную z.
2. С клавиатуры вводятся стороны треугольника a, b, c. Определить, является ли треугольник равнобедренным.

@Alex1OPS · 26.09.2010, 18:24

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses Crt;
var a,b,c,z:integer
 
begin
clrscr;
readln(a);
readln(b);
readln(c);
       if (a>b) and (a>c) then z:=a;
       if (b>a) and (b>c) then z:=b;
       if (c>a) and (c>b) then z:=c;
writeln(z);
readln;
end.

Это первая

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
7
8
9
uses Crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
        if (a=b) or (b=c) or (a=c) then writeln('Данный треугольник равнобедренный')
                                           else writeln('Данный треугольник не равнобедренный');
readln;
end.

Добавлено через 3 минуты
то вторая

@Demon-red · 26.09.2010, 18:28

Alex1OPS, А если у тебя равны все три стороны - это ведь не равнобедренный уже

@Alex1OPS · 26.09.2010, 18:30

там или... Если (a=b) или (b=c) или (a=c)

@Demon-red · 26.09.2010, 18:32

Это я увидел, если
a = 2; b = 2; c = 2; , то выполнятся все три условия, и будет уже равносторонний треугольник

@Alex1OPS · 26.09.2010, 18:38

А,я понял о чем Вы.
Однако в широком смысле равносторонний треугольник это частный случай равнобедренного.
Но..Я сейчас попытаюсь написать общее условие,исключающее появление равностороннего треугольника.

Pascal
1
2
3
4
5
6
7
8
9
uses Crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
        if ((a=b) and (b<>c)) or ((b=c) and (c<>a)) or ((a=c) and (c<>b)) then writeln('Данный треугольник равнобедренный')
                                           else writeln('Данный треугольник не равнобедренный');
readln;
end.

А так?

@spawn101 · 26.09.2010, 21:05 **[ТС]**

Спасибо вам!)

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@spawn101 1 / 1 / 0 Регистрация: 26.09.2010 Сообщений: 9

	Даны три числа. 26.09.2010, 18:09. Показов 1842. Ответов 6 Метки нет (Все метки) 1. Даны три числа a, b, c. Определить максимальное из них и записать в переменную z. 2. С клавиатуры вводятся стороны треугольника a, b, c. Определить, является ли треугольник равнобедренным. 0

@Demon-red 139 / 139 / 97 Регистрация: 25.01.2010 Сообщений: 181
	26.09.2010, 18:28
	Alex1OPS, А если у тебя равны все три стороны - это ведь не равнобедренный уже 1

@Alex1OPS 101 / 100 / 36 Регистрация: 14.09.2010 Сообщений: 223
	26.09.2010, 18:30
	там или... Если (a=b) или (b=c) или (a=c) 1

@Demon-red 139 / 139 / 97 Регистрация: 25.01.2010 Сообщений: 181
	26.09.2010, 18:32
	Это я увидел, если a = 2; b = 2; c = 2; , то выполнятся все три условия, и будет уже равносторонний треугольник 1

@spawn101 1 / 1 / 0 Регистрация: 26.09.2010 Сообщений: 9
	26.09.2010, 21:05 [ТС]
	Спасибо вам!) 1