👤
ANABUNU123EZ
a fost răspuns

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.

Răspuns :

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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari