Var
s,p:real;
i,j:integer;
a:array[1..3]of real;
begin
readln(a[1],a[2],a[3]);
for i:=1 to 3 do
for j:=1 to 3 do
if a[j]>a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p
end;
if a[1]+a[2]>a[3] then
begin
p:=(a[1]+a[2]+a[3])/2;
s:=sqrt(p*(p-a[1])*(p-a[2])*(p-a[3]));
for i:=1 to 3 do
write(a[i],' ');
writeln;
writeln('Площадь треугольника: ',s);
end
else writeln('Треугольник не существует');
<span>end.</span>
Я не уверена Но думаю номер 5
126531 б вроде так а там хз
Program E04;
uses crt;
var
n,i,k,f: integer;
X: array[1..50] of real;
Max,S: real;
begin
clrscr;
writeln('Введите размерность: ');
readln(n);
writeln('Введите массив: ');
for i:=1 to n do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
writeln('Исходный массив: ');
for i:=1 to n do
write(X[i],' ');
writeln;
Max:=abs(X[1]);
for i:=1 to n do
if Max <= abs(X[i]) then
Max:=abs(X[i]);
writeln('Максимальный элемент по модулю: ',Max);
i:=1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
k:=i;
i:=i+1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
f:=i;
for i := k + 1 to f - 1 do
S:=S+X[i];
writeln('Сумма: ',S:5:2);
end;
end;
end.
Ответ:1, 4,6
Объяснение: каретка- это ножка на жеском диске, считывающяя, записывающяя и удаляющяя данные с диска. Вверх и вниз привод не позволяет ей двигаться, а вправо и влево может (на кол-во точек на диске)
С помощью магнитного покрытия каретка узнает наличие точки или метки. А также может записать и удалить/стереть информацию.