Составте программу,которая запрашивает 3 целых числа и,если одно из чисел не ровно нулю,выводит на экран их среднее арефметическое. Pascale abc
Answers & Comments
alleggs
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.
Answers & Comments
begin writeln('Введите 3 числа через пробел'); readln(a,b,c); if (a<>0) and (b<>0) and (c<>0) then writeln('Среднее арифметическое = ',(a+b+c)/3);
end.