Впаскаль. составте программу с диалогом для нахождения - вопрос №1471383 от aizy2 14.11.2022 12:12

Question

Информатика: Впаскаль. составте программу с диалогом для нахождения площади треугольника по теореме герона. s= кв. корень p (p-a) (p-b) (p-c) p - полупериметр. a,b,c- стороны. !

aizy2 · Answer

program ndj;

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

p:=(a+b+c)/2; \\ высчитывает полупериметр

s:=sqrt(p*(p-a)*(p-b)*(p-c)); \\ высчитывает площадь

writeln(s);

readln;

end.