Решаем задачи Абрамян на Паскале. String7

String7. Дана непустая строка. Вывести коды ее первого и последнего символа.

Решение:

program String7;
var
  C:char;
  S:string;

begin
 Write('S:');
 readln (S);
 Writeln( ord(S[1]),'-',ord(S[length(S)]));
end.

program String7;

var

C:char;

S:string;

begin

Write('S:');

readln (S);

Writeln( ord(S[1]),'-',ord(S[length(S)]));

end.

Другие задачи из раздела String можно посмотреть здесь.