Cod sursa(job #857855)

Utilizator angelking777Robert angelking777 Data 18 ianuarie 2013 13:29:20
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.54 kb
program cifra;
var f, g : text;
    n, i : word;
    x, j : longint;
    s : byte;

function putere(nr : longint) : byte;
var k : longint; p : byte;
begin
    p := 1;
    for k := 1 to nr do p := (p * nr) mod 10;
    putere := p;
end;


begin
    assign(f,'cifra.in'); reset(f);
    assign(g,'cifra.out'); rewrite(g);
    readln(f,n);
    for i := 1 to n do begin
        readln(f,x); s := 0;
        for j := 1 to x do
            s := (s+putere(j)) mod 10;
        writeln(g,s);
        end;
    close(f); close(g);
end.