4класс 2 часть . 12 стр. 10. заполните таблицу высказываний и дополни рисунки . нам.

Question

Информатика: 4класс 2 часть . 12 стр. 10. заполните таблицу высказываний и дополни рисунки . нам.

Ололошка580 · Accepted Answer

// PascalABC.NET 3.0, сборка 1076
var
a,b,c,p,s:real;
begin
Writeln('Введите через пробел стороны треугольника: ');
Read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('Площадь треугольника равна ',s)
    end
else Writeln('Невозможно построить треугольник')
end.

Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641

Введите через пробел стороны треугольника:
5 8 20.4
Невозможно построить треугольник

MOGZ ответил