Последний символ ? Опции

[{ Guest }]

HI !

У меня такая проблема :

"Напишите программу, присваивающую переменной Char последний символ введенной строки. "

Я думаю , что это надо делать так, Прочитать строку , узнать количество символов.....
Но как вывести именно последний ? Первый понятно как, а вот поледний ?
Возможно ли пустить цикл

For I:=1 to Length(S) do ;

И как из этого значения взять последний символ ? С:=S[ Последний символ];

[SKVOZNJAK]

Если не нравится гото, придумай сам, как от него избавиться ;D

Код

PROGRAM STROKA;
VAR A: STRING[255];
   Q: INTEGER;
LABEL  1,2;

BEGIN
FOR Q:=1 TO 255 DO A[Q]:=CHR(1);
WRITELN('');
WRITELN('ЖИЗНЬ, ИЛИ КОШЕЛЕК!!! ВВОДИ СТРОКУ!');
READ(A);
FOR Q:=1 TO 255 DO IF ORD(A[Q])=1 THEN GOTO 1;
GOTO 2;
1: DEC(Q);
2: WRITELN('');
IF Q>0 THEN WRITELN(A[Q]);
END.

Сообщение отредактировано: volvo - 17.12.2004 16:31