Pagini recente » Cod sursa (job #279614) | Cod sursa (job #1557114) | Cod sursa (job #503774) | Cod sursa (job #704760) | Cod sursa (job #1573879)
program ucifra;
var f1,f2:text;
i,j, su, n,t:integer;
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:integer):integer;
var i,p:integer;
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.