Срочно. Помогите решить задачу на умножение

[Volkslav]

Дано число Х, заданной строкой длины <=80 и целое К. Написать программу, находящую, произведение КХ

[[Smarik]]

А в чем проблема? =0
X вещественного типа?

var
x,k,sum:integer;
begin
write('Vvedite 1-e chislo:') readln(x);
write('Vvedite 2-e chislo:') readln(k);
sum:=x*k;
writeln('summa: ',sum);
readln;
end.

Ограничение на 80 символов непонимаю зачем нужно, кто будет такие числа вводить? Даже у Билла Гейтса думаю калькулятор с ограничением на 10 символов =))

[Карась]

Сообщение от [Smarik]

А в чем проблема? =0
Ограничение на 80 символов непонимаю зачем нужно, кто будет такие числа вводить?

Я думаю проблема в том, что Integer 80-ти значное число явно неосилит.

[Volkslav]

Последовательность 0110100110010110... строится так: сначала пишется 0, затем повторяется такое действие: уже написанную часть приписывается справа с заменой элемента 0 на 1 и наоборот, т.е. 0 - 01 - 0110 - 01101001 - ..... Требуется написать программу, которая находит цифру, стоящую в последовательности на n-том месте.

[alexBlack]

Принцип такой:

0110 1001 1001 0110 1001 0110 0110 1001
--------------------------------x---------

x - число, которое нужно найти
Берем ближайшую большую x степень 2-ки - в нашем случае 32
делим на 2, запоминаем. запоминаем инверсию x

0110 1001 1001 0110
-----------x-------------------
Теперь НЕx здесь

Берем 16, делим на 2, убираем инверсию x

0110 1001
x----------
Теперь x здесь, а это значение нам известно, значит x=0.
Если бы мы подошли сюда с НЕx, то x было бы = 1



add-----------------------------------------------------------------------------
Если еще интересно, посмотрите вот --> это