👤
a fost răspuns

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


Bună Vă Rog Oare Mă Puteți Ajuta Cu Această Problemă La Informatică Poză Este Mai Jos Mulțumesc class=

Răspuns :

Vladalex40

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;

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.

Alte intrebari