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

Pascale abc

Question

Информатика

Евангелина

17 марта, 11:21

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

Pascale abc

+4

Ответы (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