ТутРешу.Ру

РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ НАДО! ВЗАМЕН МОГУ РЕШИТЬ ВАШУ ЗАДАЧУ!

Задание:

РЕБЯТ ПОЖАЛУЙСТА ОЧЕНЬ НАДО! ВЗАМЕН МОГУ РЕШИТЬ ВАШУ ЗАДАЧУ! С клавиатуры вводятся стороны треугольника а, b, c. Написать программу, которая взависимости от введенных сторон определяет какой треугольник (равносторонний, разносторонний или равнобедренный). Можно пожалуйста в Паскале) Заранее спасибочи)

Решение:

program abc; uses crt; var a,b,c: real; beginwriteln ('Введите первую сторону: '); readln (a); writeln ('Введите вторую сторону: '); readln (b); writeln ('Введите третью сторону: '); readln (c); if (a=b) and (b=c) thenwriteln ('Ваш Треугольник Равносторонний') elseif (a=b) or (a=c) or (b=c) thenwriteln ('Ваш Треугольник Равнобедренный') elseif (a+b



Знаете другой ответ?

Отправить свой ответ