Var
<span> a, b, c, p,s,s1: real;</span>
begin
<span><span>
write(</span>'Введите три стороны треугольника: '<span>); </span></span><span>
read(a, b, c);</span><span>
p := (a + b + c) / 2;</span><span>
s := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Введите три стороны другого треугольника: '<span>); </span></span><span>
read(a, b ,c);</span><span>
p := (a + b + c) / 2;</span><span>
s1 := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Треугольники равновеликие -- ', s = s1)</span><span>
end.</span>
Площадь круга=пи*R^2
внешний круг=пи*R^2
внутренний=пи*r^2
площадь кольца= пиR^2-пиr^2= пи(R^2-r^2)
Var
n, a, b, i, j: integer;
ar: array[1..10000]of integer;
begin
read(n, a, b);
ar[1] := a;
ar[2] := b;
for i := 3 to n do
begin
for j := 1 to i - 1 do
begin
ar[i] := ar[i] + ar[j];
end;
ar[i] := ar[i] + i;
end;
for i := n downto 1 do write(ar[i],' ');
end.
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд