Cod sursa(job #388273)

Utilizator SpiderManSimoiu Robert SpiderMan Data 29 ianuarie 2010 18:43:52
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.62 kb
program cifra;
var i,s,k,x,j:longint;
    f,t:text;

function prod(x:longint) :longint;
var i,s:longint;
begin
  x:=x mod 10;
  s:=1;
  for i:=1 to x do
    begin
      s:=s*x;
      s:=s mod 10;
    end;
  prod:=s;
end;

begin
  assign(f,'cifra.in');
  reset(f);
  assign(t,'cifra.out');
  rewrite(t);
  read(f,k);
  {------------------}
  for i:=1 to k do
    begin
      s:=0;
      read(f,x);
      for j:=1 to x do
        begin
          s:=s+prod(j);
          if s>10 then
            s:=s mod 10;
        end;
      writeln(t,s);
    end;
  {------------------}
  close(f);
  close(t);
end.