Сколько различных цифр в шестнадцатеричной записи числа 2^51 + 2^40 + 2^35 + 2^17 – 2^5?
нужно на питоне

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

program fraza;

var x,y: string;

begin

writeln('введите название животного: ');

readln(x);

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

readln(y);

writeln(x, " съест ", y, ' грибов.');

end.

Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin   readln(x);   if x > = 0 then     x : = x - 50   else     x : = x + 100;   writeln(x) end. пример ввода: 0 пример вывода: -50

1.папа перевозит одного из детей     возрашается обратно

2.папа перевозит 2 ребенка               возрашается обратно

3.перевозит маму                               и они выходят на другой берег