Запишите число в свернутой форме:
ХЛП

1*2³ + 1*2⁰

18

Объяснение:

1*2*2*2*2=16

+

1*2=2

9

Объяснение:

2^3 = 2*2*2

2^0 = 1

1*8+1*1 = 9

var s,s1: string; n,i: integer; begin readln(s); readln(n); for i: =1 to n do begin insert(s[1],s1,length(s1)+1); delete(s,1,1); end; s: =s+s1; writeln(s); end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.