Cod sursa(job #1573878)

Utilizator cretu_cipriancretu ciprian cretu_ciprian Data 19 ianuarie 2016 23:47:20
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.02 kb
program ucifra;
var f1,f2:text;
  i,j, su, n,t:int64;
  s:string;
  c1,c2:char;
  ucc:array[0..9,0..3] of 0..9;
  uc100:array[1..100] of 0..9;
function putere(baza,exp:int64):int64;
var i,p:int64;
  begin   p:=1;
    for i:=1 to exp do
    p:=p*baza;
    putere:=p;

  end;

begin
  for i:=0 to 9 do
  for j:=1 to 3 do
  ucc[i,j]:=putere(i,j) mod 10;
  for i:=0 to 9 do
  ucc[i,0]:=putere(i,4) mod 10;
  su:=0;
  for i:=1 to 100 do
  begin
   su:=(su+ucc[i mod 10,i mod 4]);  su:=su mod 10;
   uc100[i]:=su;
  end;
  assign(f1,'cifra.in');reset(f1);
  assign(f2,'cifra.out');rewrite(f2);
   readln(f1,t);
   for i:=1 to t do
   begin
    readln(f1,s);
    if length(s)>=2 then begin
    c1:=s[length(s)-1];
    c2:=s[length(s)];
    if (c1='0') and (c2='0') then n:=100
    else  n:=  (ord(c1)-48)*10+(ord(c2)-48);
     writeln(f2,uc100[n]);
     end
    else
    begin
       c2:=s[length(s)];
       n:=(ord(c2)-48);
       writeln(f2,uc100[n]);
    end;
   end;

  close(f1);close(f2);

end.