Question

In fisierul in.txt se afla pe prima linie un numar natural intre 2 si 1000 iar pe a doua linie n numere naturale de cel putin 2 si cel mult 9 cifre. Scrie un program Pascal care afiseaza pe ecran, oglinditele numerelor, folosind cel putin un subrogram.

Answer 1

Răspuns:

program Oglindite;

var f:text;

   n,i,num,m:integer;

function invers(a:integer):integer;

var ogl:integer;

begin

    ogl:=0;

    while a>0 do

      begin

        ogl:=(ogl*10)+(a mod 10);

        a:=a div 10;

      end;

    invers:=ogl;

end;

begin

 assign(f,'in.txt'); reset(f);

 readln(f,n);

 writeln('Oglinditele: ');

 for i:=1 to n do

   begin

     read(f,num);

     m:=invers(num);

     write(m,' ');

   end;

   close(f);

   writeln;

end.

Explicație: