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

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

Задать свой вопрос
1 ответ
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)); //убрал символ /, он в спец. знаках ';','lt;','=','gt;','?','[',']','','','\','/':write('Это служебный знак, его код ',ord(c)); else write('Знак не входит в указанный список') end; readln end.
Jaroslava
а как сделать без графического редактора?
Клецельман Надежда
есть более обычный способ?
Ромка Руляков
иной метод я незнаю
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт