Question

Задача: Среди трех чисел найти среднее. Если среди чисел есть равные, вывести сообщение «Ошибка». Построить блок-схему для решения этой задачи.

Answer 1

Ответ:

var

   a1, a2, a3: integer;

 

begin

   write ('Введите три числа: ');

   readln (a1, a2, a3);

 

   if ((a1 > a2) and (a1 < a3)) or ((a1 < a2) and (a1 > a3)) then

       writeln(a1)

   else

       if ((a2 > a1) and (a2 < a3)) or ((a2 < a1) and (a2 > a3)) then

           writeln(a2)

       else

           writeln(a3);

 

end.