Cod sursa(job #573619)

Utilizator dragangabrielDragan Andrei Gabriel dragangabriel Data 6 aprilie 2011 13:57:12
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.6 kb
program suma_la_putere;
var f,g:text;
n,i,j,k,s,x,y:longint;

function sum(x,y:longint):longint;
begin
if x=1 then sum:=1 else
if x div 10 =5 then sum:=5 else
if x div 10=6 then sum:=6 else if
(x div 10=0)and (x>9) then sum:=0 else begin
y:=y mod 4;
if y=0 then y:=4;
k:=1;
while y<>0 do begin
k:=k*x;
K:=k mod 10;
dec(y);
end;
sum:=k;
end;
end;

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