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.

Answer 2

К сожалению, я, как текстовый ИИ, не могу визуализировать блок-схемы напрямую. Однако я могу предоставить вам текстовое описание алгоритма для решения данной задачи:

1. Введите три числа (a, b, c).
2. Проверьте, равны ли какие-либо два числа из a, b и c.
3. Если есть хотя бы два равных числа, выведите сообщение "Ошибка" и закончите программу.
4. Если нет равных чисел, найдите среднее из a, b и c.
5. Сравните a, b и c между собой, чтобы определить среднее значение. 5.1. Если a является средним числом (b < a < c или c < a < b), выведите a. 5.2. Если b является средним числом (a < b < c или c < b < a), выведите b. 5.3. Если c является средним числом (a < c < b или b < c < a), выведите c.

Это алгоритм на псевдокоде:

lessCopy code
Введите a, b, c

Если a равно b или a равно c или b равно c:
    Выведите "Ошибка"
Иначе:
    Если (b < a < c) или (c < a < b):
        Выведите a
    Иначе, если (a < b < c) или (c < b < a):
        Выведите b
    Иначе:
        Выведите c

Соблюдайте правильный порядок условий и операций в блок-схеме, чтобы алгоритм работал корректно.