Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого...

Question

Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (ac) and (a if (b>a) and (bc) and (b if (c>b) and (aa) and (b>c) then writeln(c);
writeln(maxlongint);
readln;
end.

Comments

так

---

от тільки воно є не найбільше і не найменше

---

Зараз напишу.

---

можу дати повну задачу

---

Ні, я зрозумів.

---

Задано три різних числа, модуль кожного з яких не перевищує 109. Визначте число, яке рівне одному із заданих чисел, але не є ні мінімальним, ні максимальним із них.Вхідні дані: Єдиний рядок вхідного файлу містить три заданих числа, записаних через один або кілька пробілів.Вихідні дані:Єдиний рядок має містити шукане число

---

Вхідні даніРезультат роботи5 16 1010

---

Зараз, зажди небагато...

---

будьласка можете трішки бистріше ато мені вже йти треба

---

пишу

Answer 1

Ось:

program Project1; 
var   a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (ac) and (aif (b>a) and (bc) and (bif (c>b) and (aa) and (b>c) then writeln(c);
readln;
end.

Не дуже розумію, навіщо ви написали рядок:"writeln(maxlongint);". Чи це залишилося від перевірки числового інтервалу даного типу?

Comments

ну да

---

в будь-якому разі для задачі це не потрібно.

---

а помилка в тому, що ви не ввели в деяких місцях "else"

---

спасибі на дальше буду це використовувати

---

_)