Решите по информатике на pascal. даны три числа вывести среднее число но при этом числа не могут быть одинаковыми. например 9, 3, 14 нужно вывести 9. или 15, 6, 1 нужно вывести 6.

195

278

Посмотреть ответы 2

Ответы на вопрос:

89998708973

Информатика

4,5(83 оценок)

//максимально прямой(в значении тупой) код var a,b,c, max, min: real; begin readln(a,b,c); if (a > b) and (a > c) then max: = a; if (c > b) and (c > a) then max: = c; if (b > a) and (b > c) then max: = b; if (a < b) and (a < c) then min: = a; if (c < b) and (c < a) then min: = c; if (b < a) and (b < c) then min: = b; if (a < > min) and (a < > max) then writeln(a); if (b < > min) and (b < > max) then writeln(b); if (c < > min) and (c < > max) then writeln(c); end. пример: -9 3 6 3