Формула Герона используется для вычисления площади треугольника. В данном случае нет необходимости (как и нужных данных) для ее использования. Так, чтобы найти полупериметр (обозначен буквой p в формуле), мы уже должны знать длины сторон.
Вывод другой формулы и сама формула для нахождения длины отрезка находится на этом сайте: http://www.studyguide.ru/note.php?id=14
program ryazantsev;
var xa, ya, xb, yb, d: real;
begin
Writeln('Введите координаты первой точки (x, y)');
Readln(xa, ya);
Writeln('Введите координаты второй точки (x, y)');
Readln(xb, yb);
d:=Sqrt(Sqr(xb-xa)+Sqr(yb-ya));
Writeln(d)
end.
Ты должна сама настроить цветовую гамму.При желании сохрани в палитре.
Program symma;
var a,b,c,s:integer;
begin
Readln(a,b,c);
if (a > b) and (c > b) then s:=a+c;
if (b > a) and (c>a) then s:=b+c;
if (a>b) and (b>c) then s:=a+b;
if (b>a) and (a>c) then s:=b+a;
Writeln(s)
end.
<span> Система команд исполнителя – это все команды, которые исполнитель умеет выполнять. </span>
//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке
Program Test;
const Size = 19;
Var i, tmp: integer; Str, Resultat: string;
Begin
Str := 'yoonmin_in_my_heart';
for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;
Writeln(Resultat);
End.