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

Question

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

Answer 1

program zadaca;
var
a,b,c:integer;
d:real;
begin
readln(a,b,c);
if (a<>0)and(b<>0)and(c<>0) then
d:=(a+b+c)/3;
write(d);
end.