Question

Se considera 3 numere intregi, sa se scrie un program care calculeaza media aritmetica a acestor 3 numere.. In PASCAL

Answer 1

program MediaAritm;

var a,b,c: integer;

   ma: real;

begin

 writeln(' introdu 3 numere intregi:');

 write('a='); read(a);

 write('b='); read(b);

 write('c='); read(c);

 ma:=(a+b+c)/3;

 writeln(' Media lor aritmetica = ',ma);

end.