Var x, temp, p, a, original: integer; found: boolean; begin found:=false; //переменная примет значение "истина" тогда, когда число А будет найдено в цифрах первого числа writeln('Введите натуральное число"); Readln(original); Writeln('Введите число A'); Readln(a); x:=original; p:=1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю) while x>0 do //пока X болльше нуля begin temp:=x mod 10; //заносим последнюю цифру числа X в переменную temp if temp=a then found:=true; //если цифра числа равна A, то помечаем, что нашли ее p:=p*temp; //домножаем произведение на цифру x:=x div 10; //отбрасываем последнюю цифру числа через целочисленное деление end; Writeln('Произведение цифр числа ' + original + ' равно ' + p); if found then writeln('Цифра' + a + ' есть в исходном числе ' + original) else writeln('Цифра ' + a + ' отсутствует в оригинальном числе ' + original) end;
Всего на экране 640 умножить на 320 равно 204800 точек. 32 возможных варианта цвета. Из формулы N=2^I получаем количество информации, приходящуюся на одну точку: 32=2^I -> I = 5 бит. То есть каждая точка в изображении "весит" 5 бит. Умножим на количество точек: 204800 точек * 5 бит/точка = 1024000 бит. Чтобы перевести в килобайты надо это число сначала поделить на 8 - получим количество байт, а затем количество байт поделим на 1024, в результате получим, что информационный объем сообщения составляет 125 Кбайт
1.Убедитесь, что все последующие действия совершаются именно для той версии Python, которая запускает бот.
2.Если Python 3-й версии, то выполнить pip3 uninstall telebot, затем pip3 install pytelegrambotapi --upgrade.
3.Желательно перелогиниться или перезагрузиться.