Ecco la mia risoluzione con Pascal dell'esercizio 5:

Program Cambio;
Uses crt;

type
k=array[1..10] of real;

var
n,im,e:real;
i:integer;
a,b:k;

const
cam=0.6313;

Begin

clrscr;
writeln('Inserisci il numero di registro');
readln(n);

im:=n*1000;

writeln('Franchi=',im:10:2);
writeln('Euro=',im*cam:10:2);

e:=im*cam;

a[1]:=500;
a[2]:=200;
a[3]:=100;
a[4]:=50;
a[5]:=20;
a[6]:=10;
a[7]:=5;
a[8]:=2;
a[9]:=1;
a[10]:=0.5;

writeln('Tagli');

for i:=1 to 10 do
Begin
write(a[i]:3:2,'=');

if e>=a[i]
then
Begin
b[i]:=trunc(e/a[i]);
e:=e-(a[i]*b[i]);
end
else
b[i]:=0;
writeln(b[i]:2:0);
end;

writeln('Non dati=',e:1:2);
readln
end.