Cod sursa(job #33921)

Utilizator dorinelburiceanu dorin gabriel dorinel Data 19 martie 2007 21:54:28
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.43 kb
program cifra;
var n,t,i,ult1,ultf:longint;
		f,g:text;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
read(f,t);
repeat
read(f,n);
ultf:=0;
for i:= 1 to n do
case (i mod 10) of
0: ult1:=0;
1: ult1:=1;
2: ult1:=4;
3: ult1:=7;
4: ult1:=6;
5: ult1:=5;
6: ult1:=6;
7: ult1:=3;
8: ult1:=6;
9: ult1:=9;
end;
ultf:=ultf+ult1;
writeln(g,(ultf mod 10));
until eof(f);
close(f);
close(g);
end.