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

Question

Дана строка символов. Определить длину строки. Если длина строки <=20, то найти в строке порядковый номер символа .Нужен Паскаль!!!!!!!!!!!!!!!!1

Comments

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

---

небыло

---

вот подобная

---

Дана строка символов. Определить общее число символов в строке. Если число символов <=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, то найти в строке порядковый номер символа *

---

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

---

нужно самому набрать

---

произвольно

---

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

Answer 1

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.

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

Comments

спасибо