Составте программу,которая запрашивает 3 целых числа - вопрос №60055463 от дарууунчик 08.06.2023 12:36

Question

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

дарууунчик · Answer

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.