Question

Bună!
Vă rog, oare mă puteți ajuta cu această problemă la informatică.
Poză este mai jos. Mulțumesc!

Answer 1

Pentru suma le aduni toate : suma = a + b + c;

Pentru suma patratelor le aduci la patrat si dupa le aduni: sumaPatrate = a*a+b*b+c*c

Pentru media aritmetica faci suma numerelor impartita la cate numere ai adica 3 in cazul nostru : Ma = suma / 3;

Nu mai stiu cum era la Pascal dar in cod ar veni asa:

float a, b, c; //le citesti de la tastatura  (tipul float pentru ca sunt nr reale)

float suma = a + b + c;

float sumaPatrate = a*a+b*b+c*c;

float ma = suma/3;

Answer 2

program Marti04dec;

var a,b,c,suma,sumapatr, medAr: real;

begin

   Write ('a='); read(a);

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

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

   suma:=a+b+c;

   sumapatr:=sqr(a)+sqr(b)+sqr(c);

   medAr:=suma/3;

   writeln('suma= ',suma);

   writeln('suma patratelor = ',sumapatr);

   writeln(' media aritmetica= ',medAr);

end.