Задать вопрос Регистрация
Помочь другим

  • даны 3 числа , существует ли треугольник с такими длинами сторон (помогите......)

Ответы 1

  • 10 var a,b,c: integer; 20 p,s: real; 30 begin 40 writeln('Введите длины сторон треугольника (a,b,c)'); 50 readln(a,b,c); 60 if (a+b>c) then 70 begin 80 p:=(a+b+c)/2; 90 s:=sqrt(p*(p-a)*(p-b)*(p-c)); 100 writeln('Да, треугольник с такими сторонами существует.'); 110 writeln('S = ',s:0:3); 120 end 130 else 140 writeln('Треугольник с такими сторонами не существует.'); 150 end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years