Чему равна разность чисел 102 16 и 1100101

495

Объяснение:

8-чная система имеет таки цифры как 0, 1, 2, 3, 4, 5, 6, 7

всего у нас есть 8 цифр из которых мы можем составить уравнение

на первом месте может стоять только четная, всего четных у нас 4 цифры (0, 2, 4, 6)

цифры должны стоять в убывании либо не меняться

начнем с 6, она одна

вторая у нас любая цифра меньше 7, их 7 (0, 1, 2, 3, 4, 5, 6)

третьей может быть так же 7 цифр

и так же с четвертой

то есть 1 * 7 * 7 * 7 = 343

если начнем с 4, то

1 * 5 * 5 * 5 = 125

если с 2, то

1 * 3 * 3 * 3 = 27

теперь сложим все числа и получим 495

var slova, bukvy, slovo : string;

   i, b, k, c, j, l, kolvo, dlina1, dlina2 : integer;

   a : array[1..50] of string;

begin

 Writeln('Введите слова');

 Readln(slova);

 Writeln('Введите буквы');

 Readln(bukvy);

 dlina1 := length(slova);

 dlina2 := length(bukvy);

 k := 1;

 for i := 1 to dlina1 do

   if slova[i] = ' ' then

     k := k + 1;

 writeln(k);

b := 1;

i := 1;

while i <= length(slova) do

begin

 if (slova[i] <> ' ') and (i <> length(slova)) then

   slovo := slovo + slova[i]

 else

 begin

   a[b] := slovo;

   slovo := '';

   b := b + 1;

 end;

i := i + 1;

end;

a[k] := a[k] + slova[length(slova)];

b := 0;

l := 0;

for i := 1 to 50 do

 if a[i] <> '' then

   begin

   slovo := a[i];

   for k := 1 to length(slovo) do

     for c := 1 to length(bukvy) do

       if slovo[k] = bukvy[c] then

         j := j + 1;

   if j = length(slovo) then

   begin

     writeln(slovo);

     l := l + 1;

     j := 0;

   end;

   end;

if l = 0 then

 writeln('NO');

end.

Объяснение: