Составте программу,которая запрашивает 3 целых числа и,если одно из чисел не ровно нулю,выводит на экран их среднее арефметическое. Pascale abc
Составте программу,которая запрашивает 3 целых числа и,если одно из чисел не ровно нулю,выводит на экран их среднее арефметическое.
Pascale abc
Гость
Ответ(ы) на вопрос:
Гостьprogram znanie;uses crt;var a,b,c:integer;
begin writeln('Введите 3 числа через пробел'); readln(a,b,c); if (a<>0) and (b<>0) and (c<>0) then writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Не нашли ответ?
Похожие вопросы