Cod sursa(job #313346)

Utilizator malighosMihai Teodor Ioan malighos Data 8 mai 2009 20:46:14
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program cmmdc;
var f1,f2:text;
    t,i:integer;
    j,n,s:longint;
Begin
assign(f1,'cifra.in');
reset(f1);
assign(f2,'cifra.out');
rewrite(f2);
readln(f1,t);
for i:=1 to t do begin
    readln(f1,n);
    s:=0;
    for j:=1 to n do
        s:=s+j*j;
    writeln(f2,s mod 10);
    end;
close(f1);
close(f2);
End.