Cod sursa(job #51266)
Utilizator | Data | 10 aprilie 2007 18:34:15 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 2.57 kb |
var a:array[1..10000]of longint;
t,i,j,aux,uc:longint;
f1,f2:text;
begin
assign(f1,'cifra.in');reset(f1);
assign(f2,'cifra.out');rewrite(f2);
readln(f1,t);
for i:=1 to t do
readln(f1,a[i]);
for i:=1 to t do
begin
uc:=0;
for j:=1 to a[i] do
begin
aux:=j mod 10;
case aux of
0:uc:=uc+0;
1:uc:=uc+1;
2:
begin
if j mod 4=1 then uc:=uc+2;
if j mod 4=2 then uc:=uc+4;
if j mod 4=3 then uc:=uc+8;
if j mod 4=0 then uc:=uc+6;
end;
3:
begin
if j mod 4=1 then uc:=uc+3;
if j mod 4=2 then uc:=uc+9;
if j mod 4=3 then uc:=uc+7;
if j mod 4=0 then uc:=uc+1;
end;
4:
begin
if j mod 2=1 then uc:=uc+4;
if j mod 2=0 then uc:=uc+6;
end;
5:uc:=uc+5;
6:uc:=uc+6;
7:
begin
if j mod 4=1 then uc:=uc+7;
if j mod 4=2 then uc:=uc+9;
if j mod 4=3 then uc:=uc+3;
if j mod 4=0 then uc:=uc+1;
end;
8:
begin
if j mod 2=1 then uc:=uc+8;
if j mod 2=0 then uc:=uc+4;
end;
9:
begin
if j mod 2=1 then uc:=uc+9;
if j mod 2=0 then uc:=uc+1;
end;
end;
end;
writeln(f2,uc mod 10);
end;
close(f1);
close(f2);
end.