Состав и структуру мотопехотного батальона армии ФРГ (образца 1970 года) по следующему описанию.
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.
Оцифровка звука<span> — технология поделенным временным шагом и последующей записи полученных значений в численном виде. Другое название</span>оцифровки звука<span> — аналогово-цифровое преобразование </span>звука<span>. </span>Оцифровка звука<span>включает в себя два процесса: процесс дискретизации (осуществление выборки) сигнала по времени</span>
Sub CommandButton1_Click()
' Dim x, a, b, c, y As Double
x = 5.2319
a = -2.9565
b = 0.8204
c = 0.05
y = -Exp(b) + (a ^ 2 - Sin(3 * (x) ^ 3) ^ 2) / (Sqr(b ^ 2 - c) + x ^ (1 / 3))
MsgBox y
End Sub
Вот так у меня выдает правильный ответ