Question

даны 3 целых числа вычислить среднее арифметическое если сумма первых двух больше суммы вторых двух в противном случае вывести сообщение (не выполняется) турбо паскаль

Answer 1

Ответ:

Объяснение:

function Srzach2(a, b: Integer): Real; begin Srzach2:=(a+b)/2 end;

function Srzach3(a, b, c: Integer): Real; begin Srzach3:=(a+b+c)/3 end;

var a, b, c: Integer;

begin

 Write('Введите 3 числа: '); ReadLn(a,b,c);

 WriteLn('Средние: ',Srzach2(a,b):0:2,' ',Srzach2(b,c):0:2,' ',Srzach2(a,c):0:2,' ',Srzach3(a,b,c):0:2);

end.

Answer 2

Давайте представим, что у нас есть три целых числа: a, b и c. Мы хотим вычислить среднее арифметическое этих чисел, если сумма первых двух (a и b) больше суммы последних двух (b и c). В противном случае, мы выведем сообщение "не выполняется".

Для начала, проверим условие: сумма первых двух больше суммы последних двух.

pythonCopy code
a = 10  # Пример значения для первого числа
b = 15  # Пример значения для второго числа
c = 7   # Пример значения для третьего числа

# Проверяем условие
if a + b > b + c:
    # Если условие выполняется, вычисляем среднее арифметическое
    average = (a + b + c) / 3
    print("Среднее арифметическое:", average)
else:
    print("Условие не выполняется (Турбо Паскаль)")

В данном примере сумма первых двух чисел (a и b) равна 25, а сумма последних двух чисел (b и c) равна 22, что удовлетворяет условию. Таким образом, программа выведет среднее арифметическое этих чисел.