Question

Составьте программу, которая запрашивает три целых числа и, если ни одно из чисел не равно нулю, выводит на экран их среднее арифматическое.

Answer 1

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел три числа:');
  if a*b*c<>0 then Writeln((a+b+c)/3)
end.

Пример
Введите через пробел три числа: 6.3 -12 8.143
0.814333333333333

Answer 2

На Паскале вот:
var a, b, c: integer;
begin
write('Введите три целых числа: ');
readln(a, b, c)
if a<>0 and b<>0 and c<>0 then
writeln('Среднее арифметическое введенных чисел равно ', (a+b+c)/3:2:2)
else writeln('одно из чисел равно нулю, работа программы завершена');
end.

Answer 3

Программа, которая запрашивает три целых числа и выводит на экран их среднее арифметическое может быть написана на языке Python следующим образом:

# Запрос трех целых чисел у пользователя
num1 = int(input("Введите первое целое число: "))
num2 = int(input("Введите второе целое число: "))
num3 = int(input("Введите третье целое число: "))

# Проверка на то, что ни одно из чисел не равно нулю
if num1 != 0 and num2 != 0 and num3 != 0:
    # Вычисление среднего арифметического
    average = (num1 + num2 + num3) / 3
    # Вывод результата на экран
    print("Среднее арифметическое чисел:", average)
else:
    print("Одно или несколько чисел равны нулю. Вычисление среднего арифметического невозможно.")

В данной программе сначала выполняется запрос трех целых чисел у пользователя. Затем проверяется условие, что ни одно из введенных чисел не равно нулю. Если условие выполняется, то вычисляется среднее арифметическое этих чисел и результат выводится на экран. Если хотя бы одно из чисел равно нулю, то выводится соответствующее сообщение об ошибке.