Задать вопрос
30 ноября, 18:33

Дан треугольник со сторонами a, b, с. Определить, является ли он равносторонним. На Pascal ABC

+1
Ответы (1)
  1. 30 ноября, 22:14
    0
    Var a, b, c:real;

    begin

    repeat

    write ('Введите длины сторон треугольника a, b, c ') ;

    readln (a, b, c) ;

    until (a>0) and (b>0) and (c>0) ;

    if (a=b) and (b=c) then writeln ('Равносторонний')

    else writeln ('Не равносторонний или такой треугольник не существует') ;

    end.

    Тест №1

    Введите длины сторон треугольника a, b, c 5 5 - 5

    Введите длины сторон треугольника a, b, c 5 5 5

    Равносторонний

    Тест №2

    Введите длины сторон треугольника a, b, c 5 6 5

    Не равносторонний или такой треугольник не существует
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан треугольник со сторонами a, b, с. Определить, является ли он равносторонним. На Pascal ABC ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы