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

Pascale abc

Question

Информатика

Поляна

8 августа, 22:25

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

Pascale abc

+2

Ответы (1)

Знаете ответ?

Милослава · Answer 1

Program znanie; uses crt; var a, b, c:integer;

begin writeln ('Введите 3 числа через пробел') ; readln (a, b, c) ; if (a0) and (b0) and (c0) then writeln ('Среднее арифметическое = ', (a+b+c) / 3) ;

end.

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

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

Pascale abc