На языке Pascal составьте программу , которая запрашивает ввод случайных чисел a,b и N с клавиатуры. Если оба числа больше N , то и программа должна напечатать слово «БОЛЬШЕ» , если меньше N , то должна напечатать «МЕНЬШЕ» , иначе должна напечатать «N в промежутке между a и b».

Вопрос школьника по предмету Информатика

На языке Pascal составьте программу , которая запрашивает ввод случайных чисел a,b и N с клавиатуры. Если оба числа больше N , то и программа должна напечатать слово «БОЛЬШЕ» , если меньше N , то должна напечатать «МЕНЬШЕ» , иначе должна напечатать «N в промежутке между a и b».

Ответ учителя по предмету Информатика

var 

   a, b, N: integer;

begin 

   Readln(a); 

   Readln(b); 

   Readln(N); 

   if (a > N) and (b > N) then Writeln(‘БОЛЬШЕ’) 

   else if (a < N) and (b < N) then Writeln(‘МЕНЬШЕ’) 

   else Writeln(‘N в промежутке между a и b’)

end.