Pagini recente » Cod sursa (job #1900328) | Cod sursa (job #2898239) | Cod sursa (job #2932552) | Cod sursa (job #3153189) | Cod sursa (job #295900)
Cod sursa(job #295900)
program cifra;
type vec=array [1..30000] of longint;
var j,i,n,k,l:longint;
f,t:text;
a:vec;
mic:boolean;
begin
assign(f,'cifra.in');
reset(f);
assign(t,'cifra.out');
rewrite(t);
read(f,k);
for i:=1 to k do
read(f,a[i]);
for i:=1 to k do
begin
n:=0;
for j:=1 to a[i] do
begin
n:=n+1;
if n<>1 then
if n>10
then begin
mic:=false;
for k:=1 to j-1 do
begin
n:=(n mod 10)*(n mod 10);
if n>=10
then
n:=n mod 10;
end;
end
else begin
mic:=true;
for l:=1 to j-1 do
if n>10 then
n:=(n mod 10)*(n mod 10)
else n:=n*n;
end;
end;
if mic
then
begin
if n<10 then
a[i]:=n
else
a[i]:=n mod 10;
end
else a[i]:=n;
writeln(t,a[i]);
end;
close(f);
close(t);
end.