Дана строчка знаков. Найти длину строчки. Если длина строчки amp;lt;=20, то

Порядковый номер какого символа?

небыло

вот сходственная

Дана строчка символов. Определить общее число символов в строке. Если число знаков <=10, то получить новейшую строчку методом прибавления к исходной строке последовательности знаков '0123456789'. Vars:string[200];d1:byte;beginwriteln('Введи строчку s= ');readln(s);d1:=ord(s[0]);if d1<=10 then begins:=s+'0123456789';writeln('Новенькая строчка ',s); end elsewriteln('Строчка не поменялась ',s);end.

d1:=ord(s[0]); - так в Турбо паскале длину строчки добывают. В современных Паскалях Length для этого есть, но это не главно. Если сказано "то отыскать в строке порядковый номер знака", то без осознания, какой конкретно знак разыскиваем наши поиски обречены на провал

Дана строчка знаков. Определить длину строчки. Если длина строчки <=20, то отыскать в строке порядковый номер знака *

снежинка вконце была

необходимо самому набрать

произвольно

В задании нужно писать конкретно так: "найти порядковый номер знака, заданного с клавиатуры"

Var
S:string;
C:char;
i:integer;
Begin
Write('Введите строчку: ');
ReadLn(S);
Write('Введите знак: ');
ReadLn(C);
For i:= 1 to S.Length do
    if S[i] = C then
       Write(i,' ')
End.

Пример:
Введите строчку: Дана строчка знаков. Определить длину строчки. Если длина строчки lt;=20, то отыскать в строке порядковый номер символа *
Введите знак: а
2 4 11 57 76 113