По теме "линейный алгоритм". pascal abc найти площадь треугольника по известным трем сторонам (по формуле герона).

112

148

Посмотреть ответы 3

Ответы на вопрос:

SeregaDvoihnik

Информатика

4,5(47 оценок)

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.