Решение задачи №12

Решение задачи №12 из главы 6

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C».

var
a,b,c:integer;//числа
b1, b2:boolean;//для хранения результатов проверок


begin
   write('Vvedite  chislo A, B, C: ');
   read(a, b, c);//читаем переменные списком
   readln();//удерживаем консоль после ввода переменных А, В, С
   b1:=(A > B) and (A < C);
   b2:=(A > C) and (A < B);
   writeln('Chislo A nahoditsia mehdu chislami В и С -', b1 or b2);
   readln();
end.   
vedro-compota's picture

readln();//удерживаем консоль после ввода переменных А, В, С

что именно тут делает readln()?
зачем потребовался второй вызов, кроме последнего? объясните.

_____________
матфак вгу и остальная классика =)

gani84's picture

readln();//удерживаем консоль после ввода переменных А, В, С

он удерживает консоль и передает значение дальше в программу после нажатия Enter

vedro-compota's picture

удержание консоли -- просто следствие работы. Что именно происходит с потоком ввода? почему потребовалось два readln()?

_____________
матфак вгу и остальная классика =)

gani84's picture

процедура readln() считывает все что ему нужно с потока ввода вплоть до клавиши Enter.
A read он считает строку и закроет консоль

vedro-compota's picture

процедура readln() считывает все что ему нужно с потока ввода вплоть до клавиши Enter.

ок, ладно, пока что будем считать что решение засчитано.

_____________
матфак вгу и остальная классика =)