При помощи length()
Например так:
ar
s: string;
len: byte;
begin
write('Input string: ');
readln(s);
len := length(s);
writeln('Its lenght is ', len,' characters.');
readln
end.
Здесь s - сама строка, а длина будет выведена в переменной len
Хей, можешь уточнить в чём заключается задание поподробнее, а то не очень понятно.
Можно в цикле for написать по возрастанию: for a:=1 to b или по убыванию: for a:=10 downto b
АБЕК
АБВЕК
АБВК
АВЕК
АВК
АГК
АДГК
АДЖК
Ответ: 8.