Решите задачу по информатике за 7 класс на Pascale, через Integer.

Даны три числа нужно вывести среднее при этом они не могут быть одинаковыми.

Например: 6, 10, 3 вывести 6.

Например: 13, 5, 11 вывести 11.

Question

Информатика

Вена

19 ноября, 01:07

Решите задачу по информатике за 7 класс на Pascale, через Integer.

Даны три числа нужно вывести среднее при этом они не могут быть одинаковыми.

Например: 6, 10, 3 вывести 6.

Например: 13, 5, 11 вывести 11.

+5

Ответы (1)

Знаете ответ на вопрос?

Мира · Answer 1

Var

x, y, z, mid:integer;

begin

Readln (x, y, z) ;

if (x > y) and (x > z) then

if z > y then mid:=z

else mid: = y;

if (y > x) and (y > z) then

if z > x then mid:=z

else mid: = x;

if (z > y) and (z > x) then

if x > y then mid:=x

else mid: = y;

Writeln (mid) ;

end.

Пример:

4 6 47

6