Задать вопрос
17 апреля, 16:52

Выведите три числа. Если они могут быть длинами сторон прямоугольного треугольника выведите их в порядке возрастания и вычислите площадь полученного треугольника

+2
Ответы (1)
  1. 17 апреля, 20:30
    0
    Var

    s, p:real;

    i, j:integer;

    a:array[1 ... 3]of real;

    begin

    readln (a[1], a[2], a[3]) ;

    for i:=1 to 3 do

    for j:=1 to 3 do

    if a[j]>a[i] then

    begin

    p:=a[i];

    a[i]:=a[j];

    a[j]:=p

    end;

    if a[1]+a[2]>a[3] then

    begin

    p: = (a[1]+a[2]+a[3]) / 2;

    s:=sqrt (p * (p-a[1]) * (p-a[2]) * (p-a[3])) ;

    for i:=1 to 3 do

    write (a[i],' ') ;

    writeln;

    writeln ('Площадь треугольника: ', s) ;

    end

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

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Выведите три числа. Если они могут быть длинами сторон прямоугольного треугольника выведите их в порядке возрастания и вычислите площадь ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Введите три числа. Если они могут быть длинами сторон остроугольного треугольника, выведите их в порядке убывания и вычислите их площадь.
Ответы (1)
выяснить существует ли треугольник с длинами сторон x y z с длинами сторон x, y, z (в треуголнике большая сторона меньше суммы двух других сторон)
Ответы (1)
Даны три произвольных числа a, b, c, значение которых задают длины сторон треугольника. Выведите 0, если нельзя построить треугольник с такими длинами сторон; 3, если получается равностороний треугольник; 2 равнобедренный; 1 в остальных случаях.
Ответы (1)
Даны три положительных числа. Если они могут быть длинами сторон остроугольного треугольника, то вычислить его площадь и определить вид треугольника (равносторонний, равнобедренный или разносторонний), иначе выдать соответсвующее сообщение.
Ответы (1)
Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты. если разностьпервых двух чисел превышает четвертое, то выведите все четыре числа без изменения.
Ответы (1)