Консультация № 137706
21.05.2008, 01:17
0.00 руб.
0 1 1
Дана строка. Вывести коды ее первого и последнего символа

использовать Pascal turbo 7.0

Обсуждение

Неизвестный
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.
Форма ответа