Question

Rezolvați problema va rog in limbaj pasca

Answer 1

Răspuns:

program SumaInverselor;

type Pozitiv=1..9999;

var n, i, suma:integer;

   A:array[1..100] of Pozitiv;

function inv(num: integer): Pozitiv;

var nrinv: integer;

begin

 nrinv:=0;

 while num > 0 do

   begin

     nrinv:=nrinv*10 + num mod 10;

     num:=num div 10;

   end;

 inv:=nrinv;

end; { inv }

begin  {programul principal }

 write('n= '); read(n);

 writeln('introdu ',n,' numere intregi pozitive de cel mult 4 cifre:');

 suma:=0;

 for i:=1 to n do

    begin

      read(A[i]);

      suma:=suma+inv(A[i]);

    end;

 writeln('Suma inverselor lor este ',suma);

end.

Explicație:

inversul lui 100 ar fi 001 , deci 1

numerele introduse în vector trebuie să fie întocmai cerinţei (pozitive intregi de cel mult 4 cifre), altfel se va semnala eroare de tip (valoarea nu este din domeniul indicat...)