Cod sursa(job #2019844)

Utilizator _Victor_Victor Ciobanu _Victor_ Data 8 septembrie 2017 18:14:49
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
Program Cifra;
var t:1..30000;
i,s,l,x,j,k:byte;
code:word;
nr:string;
f,g:text;
function pow(n,p:longint):longint;
var i,s:longint;
begin
s:=1;
for i:=1 to p do begin
 s:= s * n;
 s:= s mod 10;
end;
pow:=s;
end;
begin
assign(f,'D:\Programming\Programs\Probleme\cifra.in');assign(g,'D:\Programming\Programs\Probleme\cifra.out');
reset(f);rewrite(g);
readln(f,t);
for j:=1 to t do begin
 readln(f,nr);
 l:=length(nr);
  val(nr[l-1],x,code);
  val(nr[l],k,code);
 s:=0;
 for i:=1 to k do begin
  s:= s + pow(i,i);
  s:= s mod 10;
  end;
  s:=s + x * 7;
  s:=s mod 10;
 writeln(g,s);
end;
close(f);close(g);
end.