Задача: Среди трех чисел найти среднее. Если среди чисел есть равные, вывести сообщение «Ошибка». Построить блок-схему для решения этой задачи.
Ответы
Ответ дал:
0
Ответ:
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.
Приложения:
![](https://st.uroker.com/files/a1d/a1d273af40a31bb98c41e6a37f759286.png)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад