Даны отрезки a, b, c Для каждой тройки этих отрезков, из которых можно построить треугольник, напечатать площадь данного треугольника. Определить и использовать процедуру printsq (x, y, z), которая выводит на печать площадь треугольника со сторонами x, y, z, если такой треугольник существует — Pascal(Паскаль)

uses crt;
var a,b,c:real;
 
procedure printsq(x,y,z:real);
begin
 if (x<y+z) and (y<x+z) and (z<x+y) then writeln('YES') else writeln('NO');
end;
 
begin
 clrscr;
 write('A B C -> ');
 readln(a,b,c);
 printsq(a,b,c);
 readln;
end.

Похожие записи/страницы:

Leave a Comment

+ 8 = 12