Cod sursa(job #229835)
| Utilizator |  mihai catalin sarpele200 |
Data | 11 decembrie 2008 20:56:15 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var i,j,k,v,t,s,n:longint;
a:array[1..100] of longint;
begin
read(t);
for j:=1 to t do begin
read(n);s:=0;i:=0;
while i<n do begin
i:=i+1;i:=i mod 10;
s:=s+i*i;
s:=s mod 10;
end;
a[j]:=s;
end;
for k:=1 to t do
writeln(a[k]);
end.