Задача по теме "Линейный алгоритм". Pascal ABC Найти площадь треугольника по известным трем сторонам (по формуле Герона).
Задача по теме "Линейный алгоритм". Pascal ABC
Найти площадь треугольника по известным трем сторонам (по формуле Герона).
Гость
Ответ(ы) на вопрос:
ГостьP := a * b *c 'nj jndtn
Гость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.
Не нашли ответ?
Похожие вопросы