Program n1;
var: a,b,c,d, n, m, s: integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
readln(a); //1й числитель//
readln(b); //1й знаменатель//
readln(c); //2й числитель//
readln(d); //2й знаменатель//
n:=a*d+c*b;
m:=b*d;
s:=nod(n,m);
n:=n div s;
m:= m div s;
writeln(n,'/',m);
end.
1+2+3+4+5+6+7+8*9=100
1+2*3+4+5+67+8+9=100
12-3-4+5-6+7+89=100
Элекронной почтой! Звонок по телефону может отвлечь от важного дела, тк человек очень занятой, а письмо он прочтет и ответит по мере своего свободного времени.
На паскале :
var x1,x2,x3,y1,y2,y3,ax,bx,ay,by,a,b,p,s:integer;
begin
readln(x1); readln(y1); readln(x2); readln(y2);
x3:=x1; y3:=y2; //координаты 3 точки
ax:=x1-x3; ay:=y1-y3; bx:=x2-x3; by:=y2-y3; //координаты направляющих векторов
a:=sqrt(sqr(ax)+sqr(ay)); //длинна вектора
b:=sqrt(sqr(bx)+sqr(by)); //длинна вектора
p:=2*(a+b); //периметр
s:=a*b; //площадь
writeln(p);
writeln(s);
end.
(100 * 1024 * 1024 * 8) / 1000000 = 839 сек = 14 мин
все округлено в большую сторону