Advertisement
Guest User

Untitled

a guest
Nov 26th, 2014
171
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. program dvojcisli;
  2. var sn,exp:string;
  3. n,i,puv,delka:longint;
  4. function stringtonumber(s:string):longint;
  5. var x:integer;
  6. begin
  7. x:=ord(s[1])-48;
  8. if x>9 then
  9. x:=0;
  10. if x<0 then
  11. x:=0;
  12. stringtonumber:=x;
  13. end;
  14. begin
  15. readln(sn);
  16. readln(exp);
  17. delka:=length(sn);
  18. n:=stringtonumber(sn[delka]);
  19. if delka>1 then n:=n+stringtonumber(sn[delka-1])*10;
  20. puv:=n;
  21. n:=1;
  22.  
  23. for i:=1 to length(exp) do
  24. begin
  25. n:=n*n;
  26. if exp[i]='1' then n:=n*puv;
  27. n:=n mod 100;
  28. end;
  29. if n<10 then writeln('0',n)
  30. else
  31. writeln(n);
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement