Ромб АВСД, уголС=1/2уголД, уголД=2*уголС, уголС+уголД=180, 3*уголС=180, уголС=уголА=180/3=60, уголД=уголВ=2*60=120, АМ=МД=х, АД=2*АМ=2х=ВС=АВ=СД, СО=ОД=х, площадь треугольника ВСО=1/2*ВС*СО*sinС=1/2*2х*х*корень3/2=х в квадрате*корень3/2, площадьтреугольника ОДМ=1/2*ОД*МД*sinД=1/2*х*х*корень3/2=х в квадрате/4, площадь треугольника АВМ=1/2*АВ*АМ*sinА=1/2*2х*х*корень3/2=х в квадрате*корень3/2, площадь АВСД=АВ в квадрате*sinА=2х*2х*корень3/2=2*х в квадрате*корень3, площадь треугольника ВМО=площадьАВСД-площадь АВМ-площадь-ВСО-площадь ОДМ=2*х в квадрате-(х в квадрате*корень3/2) -(х в квадрате*корень3/2)-(х в квадрате*корень3/4)=3*х в квадрате*корень3/4, 3√з = 3*х в квадрате*корень3/4, х в квадрате=4, х=2, АВ=АД=СД=ВС=2*2=4, площадь АВСД=4*4*корень3/2=8*корень3
1) var a, b, c, i, n, j :integer; s :string; begin read (s); for i:=1 to length(s) do begin if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32)) else write (s[i]); end; end. 2) var a, b, c, i, n, j :integer; s :string; p :array[1..10000] of integer; begin read (s); if s[1]=' ' then begin j:=j+1; p[j]:=1; end; for i:=2 to length(s) do if (s[i]=' ') and (s[i-1]<>' ') then begin j:=j+1; p[j]:=i; end; for i:=1 to j do begin a:=p[i]; p[i]:=0; while s[a]=' ' do begin inc (p[i]); a:=a+1; end; end; b:=p[1]; for i:=1 to j do if p[i]>b then b:=p[i]; write (b); end. 3) var a, b, c, i, n, j :integer; s :string; p :array[1..10000] of integer; begin read (s); i:=1; write (s[i]); while s[i]<>':' do begin inc (i); write (s[i]); end; end. 4) var a, b, c, i, n, j :integer; s :string; p :array[1..10000] of integer; begin read (s); i:=1; while s[i]<>':' do inc (i); i:=i+1; while (s[i]<>':') and (i<=length(s)) do begin write (s[i]); inc (i); end; end.
головой - творительный падеж, женск. род, ед. число