Cod sursă (job #178838)

Utilizator avatar raresm444 Rar Vas raresm444 IP ascuns
Problemă 2sah (clasele 11-12) Compilator fpc | 0,45 kb
Rundă Arhiva de probleme Status evaluat
Dată 8 ian. 2016 17:05:29 Scor 3 
var f,g:text;
n,k,t:integer;
function PL(n,x:integer):longint;
var p:longint;
begin
p:=1;
while n>0 do begin
if n mod 2 =1 then begin
p:=p*x;
dec(n);
end;
x:=x*x;
n:=n div 2;
end;
PL:=p;
end;
begin
assign(f,'2sah.in');
assign(g,'2sah.out');
reset(f);
rewrite(g);
read(f,t);
readln(f,n,k);
close(f);
if t=1 then
write(g,PL(k-1,3)mod 100003)
else begin
if k=n then
write(g,'1')
else
if k=n-1 then
write (g,'2');
end;
close(g);
end.