Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program dvojcisli;
- var sn,exp:string;
- n,i,puv,delka:longint;
- function stringtonumber(s:string):longint;
- var x:integer;
- begin
- x:=ord(s[1])-48;
- if x>9 then
- x:=0;
- if x<0 then
- x:=0;
- stringtonumber:=x;
- end;
- begin
- readln(sn);
- readln(exp);
- delka:=length(sn);
- n:=stringtonumber(sn[delka]);
- if delka>1 then n:=n+stringtonumber(sn[delka-1])*10;
- puv:=n;
- n:=1;
- for i:=1 to length(exp) do
- begin
- n:=n*n;
- if exp[i]='1' then n:=n*puv;
- n:=n mod 100;
- end;
- if n<10 then writeln('0',n)
- else
- writeln(n);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement