Cod sursa(job #161071)

Utilizator alepoisongirlNitescu Alexandra alepoisongirl Data 17 martie 2008 16:44:30
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
var f,g:text;
n:array [1..50] of integer;
t,nr,i,cif,j,p,k:integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
readln(f,t);
for i:=1 to t do
readln(f,n[i]);
for i:=1 to t do
begin
p:=1;
nr:=0;
j:=1;
k:=1;
while j<=n[i] do
begin
while k<=n[i] do
begin
p:=k*k;
nr:=nr+p;
k:=k+1;
end;
j:=j+1;
end;
cif:=nr mod 10;
writeln(g,cif);
end;
close(f);
close(g);
end.