Cod sursa(job #2515145)

Utilizator Qrush_1Cornel Mungiu Qrush_1 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.