Cod sursa(job #85738)

Utilizator nodsoftwarenume complet nodsoftware Data 22 septembrie 2007 13:52:18
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.72 kb
program cifra;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var fin,fout:text;
    i,j,n,ucifra,p,pp,ppp:integer;
begin
        assign(fin,'cifra.in');
        assign(fout,'cifra.out');
        reset(fin);
        rewrite(fout);
        readln(fin,n);
        ucifra:=0;
        for i:=1 to n do
        begin
                readln(fin,p);
                ppp:=p mod 10;
                pp:=p mod 10;
                for j:=2 to p do
                begin
                        ppp:=pp*ppp;
                        ppp:=ppp mod 10;
                end;
                ucifra:=ucifra + ppp;
                ucifra:=ucifra mod 10;
                writeln(fout,ucifra);
        end;
        close(fout);
end.