Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чиселprogram Project1; var a
Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел 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); if (b>a) and (b<c) or (b>c) and (b<a) then writeln(b); if (c>b) and (a<b) or (c>a) and (b>c) then writeln(c); writeln(maxlongint); readln; <span>end.</span>
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; <span>end.
Не дуже розумію, навіщо ви написали рядок:"</span><span>writeln(maxlongint);</span>". Чи це залишилося від перевірки числового інтервалу даного типу?