===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
В двоичной системе исчисления 2 в 25 степени = 1 и 24 нуля.
<span>Ответ 24.</span>
var
inStr, outStr : string;
i : integer;
begin
outStr := '';
ReadLn(inStr);
for i := 1 to Length(inStr) do
<span> if </span>inStr[i] <> '+' then
outStr := outStr + inStr[i] + inStr[i];
WriteLn(outStr);
end.
<span>Системы автоматизированного проектирования.</span>
<span>type TXY = record x, y: Real end;
function sqt(a, b, c: TXY): Real;
begin
sqt:=abs((a.x-b.x)*(c.y-b.y)-(a.y-b.y)*(c.x-b.x))/2;
end;
const
eps=1e-4;
o: TXY = (x:0; y:0);
var
a, b, c: TXY;
s1, s2, s3: Real;
begin
Write('Введите координаты вершин треугольника: ');
ReadLn(a.x,a.y,b.x,b.y,c.x,c.y);
s1:=sqt(o,a,b); s2:=sqt(o,b,c); s3:=sqt(o,a,c);
Write('Центр координат лежит ');
if abs(s1)<eps then WriteLn('на стороне AB')
else if abs(s2)<eps then WriteLn('на стороне BC')
else if abs(s3)<eps then WriteLn('на стороне AC')
else if abs(s1+s2+s3-sqt(a,b,c))<eps then WriteLn('внутри треугольника')
else WriteLn('вне треугольника');
end<span>.</span></span>