Ceretius 31 октября 2019 в 09:25
Составте программу,которая запрашивает 3 целых числа и,если одно из чисел не ровно нулю,выводит на экран их среднее арефметическое.
Pascale abc
Составте программу,которая запрашивает 3 целых числа и,если одно из чисел не ровно нулю,выводит на экран их среднее арефметическое.
Pascale abc
Program znanie;uses crt;var a,b,c:integer;
begin writeln(Введите 3 числа через пробел); readln(a,b,c); if (alt;gt;0) and (blt;gt;0) and (clt;gt;0) then writeln(Среднее арифметическое = ,(a+b+c)/3);
end.
begin writeln(Введите 3 числа через пробел); readln(a,b,c); if (alt;gt;0) and (blt;gt;0) and (clt;gt;0) then writeln(Среднее арифметическое = ,(a+b+c)/3);
end.
Компьютеры и вычисления
234
68
Для комментирования необходимо зарегистрироваться на сайте