Pagini recente » Cod sursa (job #2223640) | Cod sursa (job #813748) | Cod sursa (job #2087225) | Cod sursa (job #2486131) | Cod sursa (job #573619)
Cod sursa(job #573619)
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.