Cod sursa(job #2515145)
Utilizator | Data | 27 decembrie 2019 21:52:21 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
Program p1;
type tabel=array[1..maxint] of integer;
var i,j,t,sum:integer;
A:tabel;
function putere(x:integer):integer;
var i,rs:integer;
begin
rs:=1;
for i:=1 to x do rs:=rs*x;
putere:=rs;
end;
begin
readln(t);
for i:=1 to t do readln(A[i]);
for i:=1 to t do begin
for j:=1 to A[i] do
sum:=sum+putere(j);
writeln(sum mod 10);
sum:=0;
end;
end.