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.