Найти площадь треугольника с помощью Pascal.

Question

Информатика

Ионка

22 октября, 16:27

Найти площадь треугольника с помощью Pascal.

+5

Ответы (1)

Знаете ответ?

Нана · Answer 1

Program Trykutnyk;

uses Crt;

const a=5; b=3.6; c=4.2;

var p, s: real;

begin

clrscr;

p:=a+b+c;

writeln ('p=', p:5:2) ;

p:=p/2;

s"=sqrt (p * (p-a) * (p-b) * (p-c)) ;

writeln ('s=', s:5:2) ;

writeln ('Имя Фамилия') ;

readln

end.