составить программу,которая выводит на экран коды введенных слов,затем меняет каждый символ с соседним и выводит полученный текст на экран
Answers & Comments
Шахзод01uses crt; var c:char; beginclrscr; 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;readlnend.
Answers & Comments
var c:char;
beginclrscr;
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;readlnend.