Cod sursa(job #115663)
| Utilizator | Data | 16 decembrie 2007 19:35:44 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.72 kb |
program cifra;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s:int64;
v,i,j,n,m,p,q:Longint;
fin,fout:text;
{*--------------MAIN----------*}
begin
assign(fin,'cifra.in');
assign(fout,'cifra.out');
rewrite(fout);
reset(fin);
readln(fin,n);
for i:=1 to n do
begin
readln(fin,v);
s:=0;
for j:=1 to i do
begin
p:=j mod 10;
for q:=2 to j do
begin
p:=((p mod 10) * (j mod 10)) mod 10;
end;
s:=s+p;
s:=s mod 10;
end;
writeln(fout,s);
end;
writeln(fout,32131232);
close(fout);
end.
