Среди чисел найти среднее. Если среди чисел есть равные, вывести сообщение'' Ошибка".

Question

Михаил Горбунов

Информатика

4 декабря, 23:36

Среди чисел найти среднее. Если среди чисел есть равные, вывести сообщение'' Ошибка".

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Роман Сидоров · Answer 1

program kk; var a, b, c : integer; begin writeln ('введите три числа'); readln (a, b, c); if (a=b) or (a=c) or (b=c) then writeln ('Ошибка!') else if (ac) writeln (c, a, b) else if (bc) writeln (c, b, a) else if (cb) writeln (b, a, c) else writeln (a, b, c) end.