Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чиселprogram Project1; var a,b,c:longint; begin readln(a,b,c); if (a больше b) and (a меньше c) or (a больше c) and (a меньше...
Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (ac) and (aa) and (bc) and (bb) and (aa) and (b>c) then writeln(c);
writeln(maxlongint);
readln;
end.
Гость
Ответ(ы) на вопрос:
ГостьОсь:
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (a>b) and (ac) and (aa) and (bc) and (bb) and (aa) and (b>c) then writeln(c);
readln;
end.
Не дуже розумію, навіщо ви написали рядок:"writeln(maxlongint);". Чи це залишилося від перевірки числового інтервалу даного типу?
Не нашли ответ?
Похожие вопросы