Может из двоичной в восьмиричную? если да, то так:
11011011=333
11000001=301
1101011=153
11010001=321
var
price, a, b:real;
begin
write('Введите стоимасть 1 кг краски '); readln(price);
write('Введите длину комнаты '); readln(a);
write('Введите ширину комнаты '); readln(b);
writeln('Стоимость покараски пола комнаты составляет ', price * 0.15 * a * b);
end.
Var n,m:integer;
mn:set of integer;
b:boolean;
begin
write('n = '); readln(n);
write('m = '); readln(m);
mn:=[];
while n>0 do
begin
mn:=mn+[n mod 10];
n:=n div 10;
end;
b:=false;
while m>0 do
begin
if (m mod 10) in mn then b:=true;
m:=m div 10;
end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n = 13579
m = 6541
Да