Регистрация
dias2050
06.08.2022 11:51
Информатика
Есть ответ 👍

Вычислить площадь треугольника по формуле Герона.

выполнить на Pascal

178
269
Посмотреть ответы 2

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

ЫхлебушекЫ
ЫхлебушекЫ
4,4(82 оценок)
S=[p(p-a)(p-b)(p-c)]
p- пол периметра
[]- это корень, не могу обозначить
Коteykа
Коteykа
4,8(37 оценок)

// НОД(a,b)*НОК(a,b)=a*b

procedure nod(x,y: integer; var n: integer);

begin

    repeat

        if x>y then x:=x mod y

        else y:=y mod x;

    until (x=0)or(y=0);

n:=x+y;

end;

var a,b,c,d,e,n: integer;

begin

readln(a,b,c,d);

nod(a,b,n);

e:=a*b div n;

nod(c,e,n);

e:=c*e div n;

nod(d,e,n);

Writeln('НОК = ',d*e div n);

end.

Объяснение:

Пример:

36 54 18 15

НОК = 540

Популярно: Информатика