Все что знаю
475: (в 8й )=100111101 (в 2й)
457: (В 8й)= 10010111
А в 10й , так и будет 457,475)))
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
Да
Не будем лишний раз ломать себе голову, пусть компьютер своей прямой обязанностью занимается:
javascript:
var число = 3n ** 300n + 9n ** 200n + 27n ** 100n - 2n * 3n ** 150n + 13n, единиц = 0;
while (число > 0n) { let разряд = число % 3n; if (разряд == 1n) единиц++; число /= 3n; }
alert(единиц);
Итого: 6.
32=2 в 5 степени, т.е. объем информации об учебнике = 5 бит
var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.