thecoffeeowl
?>

Определить периметр и площадь треугольника. задать длины сторон самостоятельно.

Информатика

Ответы

АлександровнаВладлен243
Program n1; 
var a,b,c,s,p:real; 
begin 
readln(a); 
readln(b); 
readln(c); 
if (a+b>c) and (a+c>b) and (b+c>a) then 
begin 
p:=a+b+c; 
s:=sqrt(p*(p-a)*(p-b)*(p-c)); 
writeln('периметр=',p); 
writeln('площадь=',s); 
end else 
writeln('треугольник не существует'); 
end.
Konstantinovna1936
#include <iostream>
using namespace std;

int main()
{
    double A, B, C, D;
    cout << "Введите действительные числа A, B, C и D через пробел: ";
    cin >> A >> B >> C >> D;
    if (A<=B && B<=C && C<=D)
    {
        int max = A;
        if (B > max)
            max = B;
        if (C > max)
            max = C;
        if (D > max)
            max = D;
        A = max; B = max; C = max; D = max;
        }
    else if (!(A>B && B>C && C>D))
        {
            A = A*A;
            B = B*B;
            C = C*C;
            D = D*D;
            }
    cout << "Результат: " << A << ' ' << B << ' ' << C << ' ' << D;
    return 0;
}
ermisyareg436
#include <iostream>
using namespace std;

int main()
{
    double A, B, C, D;
    cout << "Введите действительные числа A, B, C и D через пробел: ";
    cin >> A >> B >> C >> D;
    if (A<=B && B<=C && C<=D)
    {
        int max = A;
        if (B > max)
            max = B;
        if (C > max)
            max = C;
        if (D > max)
            max = D;
        A = max; B = max; C = max; D = max;
        }
    else if (!(A>B && B>C && C>D))
        {
            A = A*A;
            B = B*B;
            C = C*C;
            D = D*D;
            }
    cout << "Результат: " << A << ' ' << B << ' ' << C << ' ' << D;
    return 0;
}

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

Поделитесь своими знаниями, ответьте на вопрос:

Определить периметр и площадь треугольника. задать длины сторон самостоятельно.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Игоревна Худанов1150
asvavdeeva
teregorka1977205
Семеновна-Павел
ski89439
beaevgen711
Никитина580
vik1223
sanseth5
Rik200081490
Oksana-Kirakosyan1301
ilysozkn27
yocrew13
maestro6838
belegaj98