Cod sursa(job #379552)

Utilizator cremarencodianaCremarenco Diana cremarencodiana 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.