Даны значения а b c. Составить программу вычислений значения наименьшего отклонения каждого из трёх чисел от их среднего арифметического значения и печати его значения и имени соответствующей переменной.
Answers & Comments
ArtemTitov
Var a,b,c,q:real; begin read(a,b,c); q:=(a+b+c)/3; writeln('a: ',abs(a-q)); writeln('b: ',abs(b-q)); writeln('c: ',abs(c-q));
Answers & Comments
begin
read(a,b,c);
q:=(a+b+c)/3;
writeln('a: ',abs(a-q));
writeln('b: ',abs(b-q));
writeln('c: ',abs(c-q));