Question

Elaborati un program in Pascal. Se citesc trei numere a, b, c de pe prima linie a fisierului date3.in. Sa se scrie in fisierul date3.out suma numerelor, media aritmetica si media geometrica fiecare rezultat pe cate o linie.

Answer 1

program Tema;
uses SysUtils;
uses Math;
const C_FNAME_IN='date3.in';
const C_FNAME_OUT='date3.out'
var tfIn,tfOut:TextFile;
var a,b,c,ma,mg:real;
begin
AssignFile(tfIn,C_FNAME_IN);
AssignFile(tfOut,C_FNAME_OUT);
readln(tfIn,a,b,c);
ma:=(a+b+c)/3;
mg:=power(a*b*c,1.0/3.0);
writeln(tfOut,ma);
writeln(tfOut,mg);
CloseFile(tfIn);
closeFile(tfOut);
end.