Question

Se introduc la tastatura 2 numere a și b sa se calculeze și sa se afișeze media geometrica

Answer 1

Răspuns:

program media_geom;

var a, b: integer;

var med_giom: real;

begin

Writeln('introdu valori lui a di b');

Readln(a, b);

med_giom:= sqrt(a*b)

Writeln('media aritmetica este:' med_giom:2:2)

end.

Sper ca este bine :)