javascript:
function Вычислить(число) {
var массив = [], м1 = [], м2 = [], с1 = 0, с2 = 0;
for (let сч = 1; сч <= число; сч++) массив.push(сч);
for (let сч = число - 1; сч >= 0; сч--)
if (с1 > с2) { м2.push(массив[сч]); с2 += массив[сч]; }
else { м1.push(массив[сч]); с1 += массив[сч]; }
if (с1 != с2) return false;
else {
var рез = "";
for (let сч = 1; сч <= число; сч++)
if (м1.indexOf(сч) != -1) рез += "+"; else рез += "-";
return рез;
}
}
document.write(Вычислить(8) + "<br />");
document.write(Вычислить(15) + "<br />");
document.write(Вычислить(40) + "<br />");
document.write(Вычислить(99) + "<br />");
+--++--+
--++--++--++--+
+--++--++--++--++--++--++--++--++--++--+
--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--++--+
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (a<c) or (a>c) and (a<b) then writeln(a) else
if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b) else
if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c);
readln;
end.
Не дуже розумію, навіщо ви написали рядок:"writeln(maxlongint);". Чи це залишилося від перевірки числового інтервалу даного типу?