1.по заданным координатам точек А и Б вычислите длину от резка АБ
2.Известны длины сторон треугольника a,b,c. Напишите программу вычисляющую площадь этого треугольника
ИНФОРМАТИКА СРОЧНОО

огромное спасибо :))

Не забудь про лучший ответ!)

var A, B, C, P, S: real;begin writeln('Введите сторону A'); readln(A); writeln('Введите сторону B'); readln(B); writeln('Введите сторону C'); readln(C); if(A + B > C) and (A + C > B) and (B + C > A) then begin P := (A + B + C) / 2; S := sqrt(P * (P - A) * (P - B) * (P - C)); writeln('Площадь треугольника по теореме Герона равна ', S) end else writeln('Треугольник с такими сторонами не существует');end.

лучше во второй задачи так! А то что то я намутил, а сейчас испивал!

1 задачаvarX_1, Y_1, X_2, Y_2, AC, BC, AB:real;beginwriteln('Введите значания X_1 (точки A)');readln(X_1);writeln('Введите значания Y_1 (точки A)');readln(Y_1);writeln('Введите значания X_2 (точки B)');readln(X_2);writeln('Введите значания Y_2 (точки B)');readln(Y_2);AC:=X_2-X_1;BC:=Y_2-Y_1;AB:=sqrt((AC*AC)+(BC*BC));writeln('Длинна отрезка AB равна ', AB);end.2 задачаvarA, B, C, P, S:real;beginwriteln('Введите сторону A');readln(A);writeln('Введите сторону B');readln(B);writeln('Введите сторону C');readln(C);P:=(A+B+C)/2;S:=sqrt(P*(P-A)*(P-B)*(P-C));if(A+B<=C) or (A+C<=B) or (B+C<=A) thenwriteln('Треугольник с такими сторонами не существует')elsewriteln ('Площадь треугольника по теореме Герона равна ', S);end.