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

действительно, так красивее.

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

// 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.1430.814333333333333