Запиши целое число в виде суммы разрядных слагаемых — единиц, десятков, сотен, тысяч и так далее.
26475= ⋅10000 ⋅1000 ⋅100 ⋅10 ⋅1

61705= ⋅10000 ⋅1000 ⋅100 ⋅10 ⋅1

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

2*3=6

512*128*6=393216

393216: 1024=384кб