Cod sursa(job #379552)
| Utilizator | Data | 2 ianuarie 2010 14:38:03 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.47 kb |
var n,m,i,j,k,l,cf,t,suma,pr,pt,x:longint;
begin
assign(input,'cifra.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
readln(t);
for i:=1 to t do begin
readln(x); suma:=0;
for j:=1 to x do
begin
cf:=j mod 10;
pt:=j mod 4;
pr:=1;
if pt<>0 then
for k:=1 to pt do
pr:=pr*cf;
if pt=0 then
for k:=1 to 4 do
pr:=pr*cf;
suma:=suma+pr mod 10;
end;
writeln(suma mod 10);
end;
close(output);
end.
