CORREZIONE VERIFICA

Esercizio n° 5 (cambio dei franchi svizzeri)

program svizzera;
const F=06313; £ :array [1..10] of
real = (500,200,100,50,20,10,5,2,1,0.5);
var n,i,q:bite; c=real
begin
write ('N [CHF]:');
for i:=1 to 9 do write (t[i]:4:0); writeln (t[10]:4:1);
for n:=1 to 22 do begin
c:=f*n* 1000,write (c:8:2, '=');
for i:=1 to 10 do begin
q=trune (c/t[i]);
write (q:4);
c:=c-q*t[i];
end;
readln
end;
end.