Меню сайта

Задача №20

Программапроверяющая выполняется ли условие существования треугольника.

uses crt-

var a,b,c:integer-

p,s:real-

begin

clrscr-

writeln(‘Введите длины сторон тр-ка (a,b,c)’)-

readln(a)-

readln(b)-

readln(c)-

p:=a+b+c-

s:=sqr(p/2*(p/2-a)*(p/2-b)*(p/2-c))-

if (a+b&gt-c) and(a+c&gt-b) and (c+b&gt-a) then

begin

writeln(‘Периметр — ‘,p)-

writeln(‘Площадь — ‘,s)-

end

else writeln(‘Треугольник не существует’)-

end.

Категория: Разветвляющиеся программы | Дата: 07.01.13

Меню раздела
Блок