6^3 = 216
чтото пошло не так во время добавления ответа
<span>Т.к. каждый символ может иметь 64 значения, то есть
, то на каждый символ выделяется 6 бит(от 0 до 63, всего 64
варианта).Всего символов - 100. Значит всего нужно 6*100=600бит=75байт</span>
Uses crt;
var a, b, c, d, e: integer;
begin
clrscr;
writeln('введите трехзначное число');
readln(a);
b:=a div 100;
c:=a mod 100;
d:=c div 10;
c:=c mod 10;
e:=b+d+c;
if e mod 3=0
then
begin
e:=c*100+d*10+b;
writeln(e)
end
else
begin
d:=0
e:=b*100+d*10+c;
writeln(e)
end
end.