Що допомогти ? Нічого ж немає
Путь А , B , F = 7 . От пути А , С , дорога в F не ведет .
Путь от А , F=9. Следовательно кратчайший путь от A в F = 7
Ответ ; 2
1 - a
2 - a
3 - d
4 - a
5 - г
6 -
7 -
8 - d
9.19 - 2
10 - 6
<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185
//Pascal ABC.NET 3.1 сборка 1219
procedure PerAndPlo(var s,p:real;a,b,c:real);
Var
pp:real;
begin
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;
Var
a1,b1,c1,p1,s1,a2,b2,c2,p2,s2:real;
begin
Writeln('Введите длины сторон первого треугольника:');
readln(a1,b1,c1);
Writeln('Введите длины сторон второго треугольника:');
readln(a2,b2,c2);
PerAndPlo(s1,p1,a1,b1,c1);
PerAndPlo(s2,p2,a2,b2,c2);
Writeln('Сумма периметров:',(p1+p2));
Writeln('Сумма площадей:',(s1+s2));
end.
Пример ввода:
1
2
3
4
5
6
Пример вывода:
Сумма периметров:21
Сумма площадей:9.92156741649221