Составьте программу, которая запрашивает три целых числа и , если ни одно из чисел не равно нулю, выводит на экран их среднееарифметическое.
Program d; var a,b,c:integer; Begin Writeln('введите 3 целых числа через пробел'); Read(a,b,c); if (a<>0) and (b<>0) and (c<>0) then writeln((a+b+c)/3) else writeln('одно из чисел равно нулю'); Readln; end. Проверил - все работает. Если возникнут вопросы - пиши в личку. Удачи!
