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

Question

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

Answer 1

Program znanie;uses crt;var a,b,c:integer;
begin writeln('Введите 3 числа через пробел'); readln(a,b,c); if (a<>0) and (b<>0) and (c<>0) then writeln('Среднее арифметическое = ',(a+b+c)/3);
end.