Составте программу,которая запрашивает 3 целых числа - вопрос №60055463 от Vftfg 03.02.2023 18:01

Question

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

Vftfg · 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.