Cod sursa(job #122027)

Utilizator mihaibcbotezatu mihai mihaibc Data 10 ianuarie 2008 17:55:48
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
program calcul;
var n,i,k,s,p,x,d,j,o,l:longint;
    t,z:array[1..100] of longint;
    g,h:text;
begin
assign(g,'cifra.in');
reset(g);
read(g,n);
for i:=1 to n do
read(g,t[i]);
o:=1;
for i:=1 to n do begin
k:=0;s:=0;p:=1;
repeat
p:=1;
k:=k+1;
for l:=1 to k do
p:=p*k;
x:=p mod 10;
s:=s+x;
until k=t[i];
d:=s mod 10;
for j:=o to o do
z[j]:=d;
o:=o+1;
end;
assign(h,'cifra.out');
rewrite(h);
for j:=1 to n do begin

writeln(h,z[j]);
end;
close(h);
close(g);
end.