Cod sursa(job #163746)
| Utilizator |  Nezbeda Harald free2infiltrate |
Data | 23 martie 2008 09:27:53 |
|---|---|---|---|
| Problema | Ridicare la putere in timp logaritmic | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.32 kb |
program log;
var a,b : longint;
function lm(x,y:longint):longint;
begin
if y=1 then lm := x
else
if y mod 2 = 0 then lm := sqr(lm(x,y div 2)) mod 1999999973
else lm := lm(x,y-1)*x mod 1999999973;
end;
begin
write('a=');readln(a);
write('b=');readln(b);
write(lm(a,b));
readln;
end.