Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var n, c, d, e, k : integer;
begin
wtite ('введите 3-х значное число n =');
readln (n);
c : = n div 100;
d : = (n div 10) mod 10;
e : = n mod 10;
k: = 100*e + 10*d + c;
if n = k then write ('палиндром') else write('не палиндром')
end.
2^i = 100
i = 7 бит необходимо для кодирования любого от 1 до 100
64 * 7 = 448 бит = 56 байт
составим уравнение:
x- первая корзина
y- вторая корзина
x+54=x+y
x-x+54=y
y=54 - (во второй корзине)
x=54+38
x=92
z- третья корзина
z=x-27
z=92-27
z=65
ответ: в третей корзине 65 орехов
64000 бит/с*16 c=1024000 бита/8=128000 байт=125 килобайт
Популярные вопросы