Задача по теме "Линейный алгоритм". Pascal ABC Найти площадь треугольника по известным...

Question

Задача по теме "Линейный алгоритм". Pascal ABC
Найти площадь треугольника по известным трем сторонам (по формуле Герона).

Answer 1

Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin  p:=(a+b+c)/2;  gero:=p*(p-a)*(p-b)*(p-c);end;begin  write('Введите A'); readln(a);  write('Введите B '); readln(b);  write('Введите C'); readln(c);  writeln(gero(a,b,c));  readkey;end.

Answer 2

P := a * b *c 'nj jndtn