(*String7. Дана непустая строка. Вывести коды ее первого и последнего символа.*)
MODULE МоиПример;
IMPORT L := StdLog,  In,  Math;
PROCEDURE Делать*;
VAR n : INTEGER;
c : ARRAY 1024 OF CHAR;
BEGIN
c := "AelHUTнпгTB";
L.Int(ORD(c[0]));
L.Int(ORD(c[10]));(*считаем вручную номер последнего символа*)
L.Int(LEN(c$)); (* длинна строки *)
L.Int(ORD(c[LEN(c$)]));(* номер последнего символа с помощью процедурыНЕ СЧИТАЕТ*)
END Делать;
END МоиПример.
МоиПример.Делать