Знайдіть помилку дуже прошу, програма для знаходження не найменшого і не найбільшого числа з трьох чисел 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.

113

425

Посмотреть ответы 2

Ответы на вопрос:

Kostolom2005

Информатика

4,8(41 оценок)

Ось: 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); ". чи це залишилося від перевірки числового інтервалу даного типу?