Question

AJUTATI VA ROG URGENT LA INFORMATICA
pascal sau in delphi

Answer 1

Răspuns:

program Fisiere;

var f,g:text;

   m1,m2,media:real;

   cuv:string;

begin

  assign(f,'REZULTAT.TXT');

  reset(f);

  assign(g,'MEDIA.TXT');

  rewrite(g);

  while not eof(f) do

    begin

      readln(f,m1,m2,cuv);

      media:=(m1+m2)/2;

      writeln(g,media:0:2,' ',cuv);

   end;

 close(f); close(g);

end.

Explicație: