fork download
copy 
  1. {$APPTYPE CONSOLE}
  2.  
  3. uses
  4.   SysUtils;
  5. label 1;
  6. var a:array[1..32000] of integer;
  7.      c,i,k,n,g,j:integer;
  8. begin
  9. readln(c,n);
  10. if n=1 then begin writeln(1); exit; end;
  11. a[32000]:=1;g:=0;
  12. i:=1;
  13. for i:=1 to n do  begin
  14. for j:=32000 downto 1 do begin
  15. a[j]:=a[j]*c+g;
  16. if a[j]>9 then begin g:=a[j] div 10; a[j]:=a[j] mod 10; end else g:=0; end;
  17. end;
  18. j:=0;
  19. for i:=1 to 32000 do begin
  20. if (j=0)and(a[i]=0) then goto 1;
  21. write(a[i]);
  22. j:=j+1;
  23. 1:end;
  24. end.
  25.  
Success #stdin #stdout 0s 5312KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1
https://ideone.com/xPQTVa
language:
Pascal (fpc 3.0.4)
created:
144 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!