GIOVEDì 22 FEBBRAIO

ciao a tutti!!oggi seconda parte del compito di tecnica su teoria...andato bene..interrogazione di ragioneria x fortuna nn sono stato interrogato...

Oggi è ufficialmente aperta la gara degli scraw game e oggi il prof ha restituito le copie e sempre sul foglio abbiam dovuto scrivere la nostra definizione di scarabocchio e fare uno schizzo dello sarabocchio.
poi abbiam fatto un programma dove dobbiamo capire cosa è la x

var x,a,b,c,d,e,f,g,h,i,j,k,l,m:integer;
begin write('AAAA:');
readln(x);
a:=x mod 19;
b:=x div 100;
c:=x mod 100;
d:=b div 4;
e:=b mod 4;
f:=(b+8) div 25;
g:=(b-f+1) div 3;
h:=(19*a+b-d-g+15) mod 30;
i:=c div 4;
j:=c mod 4;
k:=(32+2*e+2*i-h-j) mod 7;
l:=(a+11*h+22*k) div 451;
m:=(h+k-7*l+114);
write(m mod 31+1);
if m div 31=3 then write ('3') else write('4');
writeln('x e....')
end.