Информатика: решение на языке паскаль. текст : даны три натуральных числа. напишите программу, определяющую существует ли треугольник с такими длинами сторон. если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний)

149

229

Посмотреть ответы 3

Ответы на вопрос:

Табалаев

Информатика

4,8(41 оценок)

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b,c): =readinteger3('a b c ='); if (a+b> c) and (a+c> b) and (b+c> a) then if (a=b) or (a=c) or (b=c) then if (a=b) and (b=c) then writeln('треугольник равносторонний') else writeln('треугольник равнобедренный') else writeln('треугольник разносторонний') else writeln('треугольник не существует') end.

Даха901

Информатика

4,7(56 оценок)

Var i, a, b, c: integer; function check_is(a, b, c: integer): boolean; begin if a > = b + c then check_is : = false else if b > = a + c then check_is : = false else if c > = a + b then check_is : = false else check_is : = true; end; procedure check_how(a, b, c: integer); begin if ((a = b) and (b = c) and (a = c)) then writeln('равносторонний') else if ((a = b) or (b = c) or (a = c)) then writeln('равнобедренный') else writeln('разносторонний'); end; begin writeln('введите стороны треугольника'); read(a, b, c); if check_is(a, b, c) then check_how(a, b, c) else writeln('нет такого треугольника! '); end.

saulefazylovnap00xfc

Информатика

4,7(5 оценок)

Впаскале есть подходящий для данного случая оператор case: case k of 18..20: writeln('ваша оценка 5. молодец! '); 14..17: writeln('ваша оценка 4.'); 10..13: writeln('ваша оценка 3.'); else writeln('ваша оценка 2.'); end;

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.