Question

Se considera trei numere întregi.Sa se calculeze media lor aritmetica.
Rezolvare in programul Pascal!

Answer 1

program p1;vara,b,c:integer;d:real;beginwriteln('Introdu cifra a,b,c: ');readln(a,b,c);d:=(a+b+c)/3;writeln('Media aritmetica: ',d);end.