Cod sursa(job #123657)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 16 ianuarie 2008 22:21:58
Problema Cifra Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.71 kb
program cifra;
var A : array [0..100] of integer;
    T,z,N : real;
    i,j,l,S,r,q : integer;
    k : longint;
    fin,fout,w : text;
begin

for i := 1 to 100 do begin
k := 1;
for j := 1 to i do begin
k := (k mod 10) * (i mod 10);
end;
A[i] := k;
end;
for i := 2 to 99 do begin
A[i] := A[i]+A[i-1];
A[i] := A[i] mod 10;
end;
A[0] := 0;

{writeln;
assign(w,'sir.txt');
rewrite(w);
for i := 0 to 99 do
write(w,A[i]:2);
close(w);
write(A[i],' ');
readln;
}


assign(fin,'cifra.in');
reset(fin);
readln(fin,T);
assign(fout,'cifra.out');
rewrite(fout);
for i := 1 to round(T) do begin
readln(fin,N);
N := frac(N/100)*100;
writeln(fout,A[round(N)]);
end;
close(fin);
close(fout);
end.