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.

Answer 2

Для розв'язання даної задачі використаємо мову програмування Lazarus.

Нижче наведено код програми на Pascal, яка знаходить середнє число з трьох заданих чисел:

program FindMiddleNumber;

var
  a, b, c, middle: integer;

begin
  // Запитуємо у користувача три числа
  writeln('Введіть перше число:');
  readln(a);
  writeln('Введіть друге число:');
  readln(b);
  writeln('Введіть третє число:');
  readln(c);

// Знаходимо середнє число
  if (a > b) and (a < c) or (a < b) and (a > c) then
    middle := a
  else if (b > a) and (b < c) or (b < a) and (b > c) then
    middle := b
  else
    middle := c;

// Виводимо результат
  writeln('Середнє число: ', middle);

readln;
end.

У цій програмі ми спочатку запитуємо у користувача три числа, використовуючи процедуру `readln`. Потім ми використовуємо умовні оператори `if` та `else` для знаходження середнього числа. В кожному операторі `if` ми перевіряємо, чи число `a`, `b` або `c` знаходиться між іншими двома числами. Якщо так, то це число є середнім. На кінці програми ми виводимо результат за допомогою процедури `writeln`.

Цей код можна скомпілювати та виконати в середовищі Lazarus. Після запуску програми вона запитає у вас три числа, після чого виведе середнє число з них на екран.

Наприклад, якщо ви введете числа 5, 2 та 8, програма виведе на екрані "Середнє число: 5".