111₂ + 111₂ = 1110₂
1110₂ = 2³ + 2² + 2¹ = 8 + 4 + 2 = 14₁₀
var x,a,b,c,d,e,s: integer;
begin
writeln ('Введите целое 5-значное число');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x div 100 mod 10;
d:=x div 10 mod 10;
e:=x mod 10;
s:=a+b+c+d+e;
writeln ('s=', s);
end.
var
i, a, b: <em>integer</em>;
k: <em>Int64</em>;
begin
readln(a, b);
for i := a to b do
k += sqr(i);
writeln(k);<span>
end.</span>
Если числа небольшие и X в N степени умещается в longint, то можно в цикле от 1 до n умножать на x
var i,x,n:integer;
l:longint;
begin
readln(x,n);
l:=1;
for i:=1 to n do
l:=l*x;
write(l);
end.