Составить программу, которая выводит на экран коды введенных слов, затем меняет каждый символ с соседним и выводит полученный текст на экран

uses crt;
var c:char;
begin clrscr;
write('Введите символ ');
readln(c);
case c of '0'..'9':write('Это десятичная цифра, ее код ',ord(c)); 'A'..'Z':write('Это прописная латинская буква, ее код ',ord(c)); 'a'..'z':write('Это строчная латинская буква, ее код ',ord(c));
'+','-','*':write('Это знак арифметического действия, его код ',ord(c)); //убрал знак /, он в спец. символах ';','<','=','>','?','[',']','{','}','\','/':write('Это служебный символ, его код ',ord(c)); else write('Символ не входит в указанный список') end; readln end.

200₁₀ → x₂

Делим число в десятичной системе на основание числа, которое мы хотим получить, то есть на 2:

200 / 2 = 100 (0), где 0 - это остаток. Действительно, 2 · 100 + 0 = 200

100 / 2 = 50 (0)

50 / 2 = 25 (0)

25 / 2 = 12 (1), 2 · 12 + 1 = 24 + 1 = 25. Это можно представить так: у Вас есть 25 яблок и 2 друга, между которыми нужно поровну разделить все яблоки. Вы можете обоим дать только по 12 яблок, а останется 1. Это и будет остаток.

12 / 2 = 6 (0)

6 / 2 = 3 (0)

3 / 2 = 1 (1)

1 / 2 = 1 (1), применим на том же примере с яблоками: у нас есть одно яблоко и 2 друга, а нужно разделить количество яблок поровну, не деля яблоко пополам. У Вас сделать это не получится, поэтому у Вас остаётся 1 яблоко, то есть остаток.

Теперь "собираем" остатки снизу вверх:

11001000₂ - это и будет наш двоичный код.

ответ

11001000

Для начала напишем максимальное трёхзначное число в восьмеричной системе. Так как в этой системе используются цифры от 0 до 7, то максимальным числом из трёх цифр будет 777₈

Теперь переведём это число в десятичную систему счисления.
Для перевода умножаем содержимое каждого разряда на его "вес" (для первого разряда- 8 в нулевой степени, для второго- 8 в первой степени, итд). Получившиеся произведения складываем:
777₈ = 7*8^2 + 7*8^1 + 7*8^0 = 7*64 + 7*8 + 7*1 = 448 + 56 + 7 = 511₁₀

ответ: десятичное число 511.

Сам перевод можно было упростить, если переводить не 777₈ , а число на единицу большее, то есть  777₈ + 1 = 1000₈
Перевод этого числа проще: 1000₈ = 8^3 = 512₁₀
Осталось только отнять единицу, которую мы ранее добавили, и получим 511₁₀