Написать программу вычисления длин сторон, углов, площади, радиусов вписанноый и описанной окружностей для треугольника, заданного координатами вершин на плоскости.!
PROGRAM Example1;
Type Tfraction = record;
Chisl: Integer;
Znam; Word;
End;
Function nod(a,b:integer):integer;
Var k:integer;
Begin
If a>b then k:= a else k:=b;
While not((a mod k=0)and(b mod k =0)) do dec(k);
End;
Var
x,y,s: Tfraction
n,p:integer;
st: string;
begin
writeln('Введите два рациональных числа');ъ
write('x= '); readln(st); n:= post('/',st);
val(copy(st,1,n-1),x.chisl,p);
val(copy(st,n+1,length(st)-n),x.znam,p);
write('y= '); readln(st); n:= post('/',st);
val(copy(st,1,n-1),y.chisl,p);
val(copy(st,n+1,length(st)-n),y.znam,p);
{находим НОД для каждой дроби и сокращаем их}
n:=nod(x.chisl,x.znam);
x.chis:= x.chisl div n;
x.znam:= x.znam div n;
n:=nod(y.chisl,y.znam);
x.chis:= y.chisl div n;
x.znam:= y.znam div n;
writeln('Сокращенные дроби:');
writeln('X= ',x.chisl,'/',x.znam);
END.
#25 Если сам не научишься решать свои проблемы, долго в универе не продержишься.
Ты можешь проработать материал по лекциям, семинарам, сходить к преподу и сказать что ты нихуя не знаешь,
чтобы он помог тебе разобраться. Можешь посмотреть решения типовых примеров в интернете (их там туева хуча, btw).
Можешь попросить помощи у однокурсников на худой конец. Скоро у вас пойдет невротъебенная химия-хуимия,
ты по ней тоже ответы на браблее искать будешь чтоли? Не найдешь, потому что не та аудитория.
Сдал на отлично 
