Составьте программу,которая запрашивает три целых числа и,если ни одно из чисел не равно нулю,выводит на экран их среднее арифмитическое.
Составьте программу,которая запрашивает три целых числа и,если ни одно из чисел не равно нулю,выводит на экран их среднее арифмитическое.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы