21.05.2008, 09:54
общий
это ответ
Здравствуйте, Артемий Тотктонада!
Программа в приложении.
Удачи!
Приложение:
Program Pr137706; Uses CRT; Var str: String; ch: Byte;Begin ClrScr; Write(‘Введите строку: ‘); ReadLn(str); {получаем длину строки} ch := Ord(str[0]); if ch > 0 then begin WriteLn(‘Код первого символа строки: ‘, Ord(str[1])); WriteLn(‘Код последнего символа: ‘, Ord(str[ch])); end else WriteLn(‘Введена пустая строка!‘); ReadLn;End.