Question

Дано три числа. Знайти середнє з них (тобто число, розташоване між найменшим і найбільшим).


Задачу виконати в мові програмування Lazarus.

Answer 1

Ответ:

program find_middle;

var

a, b, c: integer;

middle: integer;

begin

writeln('Введіть три числа:');

readln(a);

readln(b);

readln(c);

if (a <= b) and (b <= c) then

middle := b

else if (b <= a) and (a <= c) then

middle := a

else if (c <= a) and (a <= b) then

middle := a

else if (a <= c) and (c <= b) then

middle := c

else if (b <= c) and (c <= a) then

middle := c

else

middle := b;

writeln('Середнє число:', middle);

end.