var a,b,c: integer; s: real; beginwriteln('vvedite abc'); read(a,b,c); s: =(a+b+c)/3; writeln('srednee arifmeticheskoe 3 chisel = ',s); end.
Поделитесь своими знаниями, ответьте на вопрос:
Прошу . напишите программу нахождения среднего арифметического 3-х целых чисел, вводимых с клавиатуры.
var a,b,c: integer; s: real; beginwriteln('vvedite abc'); read(a,b,c); s: =(a+b+c)/3; writeln('srednee arifmeticheskoe 3 chisel = ',s); end.