Перевірити, чи попадає середнє арифметичне в проміжок [c, d]. Це можна зробити за допомогою умовного оператора if, який перевіряє, чи значення середнього арифметичного більше або дорівнює c і одночасно менше або дорівнює d.
Якщо середнє арифметичне попадає в проміжок [c, d], вивести на екран повідомлення "Середнє арифметичне чисел a та b попадає в проміжок [c, d]".
Якщо середнє арифметичне не попадає в проміжок [c, d], вивести на екран повідомлення "Середнє арифметичне чисел a та b не попадає в проміжок [c, d]".
program check_average;
var
a, b, c, d: real;
average: real;
begin
// ввести значення змінних a, b, c, d з клавіатури
write('Введіть значення a: ');
readln(a);
write('Введіть значення b: ');
readln(b);
write('Введіть значення c: ');
readln(c);
write('Введіть значення d: ');
readln(d);
// обчислити середнє арифметичне чисел a та b
average := (a + b) / 2;
// перевірити, чи попадає середнє арифметичне в проміжок [c, d]
if (average >= c) and (average <= d) then
writeln('Середнє арифметичне чисел a та b попадає в проміжок [', c, ', ', d, ']')
else
writeln('Середнє арифметичне чисел a та b не попадає в проміжок [', c, ', ', d, ']');
Для цього можна використати наступний алгоритм:
program check_average;
var
a, b, c, d: real;
average: real;
begin
// ввести значення змінних a, b, c, d з клавіатури
write('Введіть значення a: ');
readln(a);
write('Введіть значення b: ');
readln(b);
write('Введіть значення c: ');
readln(c);
write('Введіть значення d: ');
readln(d);
// обчислити середнє арифметичне чисел a та b
average := (a + b) / 2;
// перевірити, чи попадає середнє арифметичне в проміжок [c, d]
if (average >= c) and (average <= d) then
writeln('Середнє арифметичне чисел a та b попадає в проміжок [', c, ', ', d, ']')
else
writeln('Середнє арифметичне чисел a та b не попадає в проміжок [', c, ', ', d, ']');
end.