Помогите,пожалуйста, с паскалем(

[Breathe_Carolina]

С клавиатуры вводят слово.Составить программу которая: 1)проверяет,есть ли в этом слове заданный символ,2)определяет позицию заданного символа,3)подсчитывает количество вхождений заданного символа?
надо делать в turbo pascal
второе я поняла,как делать,а вот с первым и последним заминочка...

Comments

[Allein.]

вводимый с клавиатуры символ кладете в переменную, потом в цикле посимвольно сравниваете с уже имеющейся переменной.
если есть - переменная счетчика плюсуется.

я бы накатала код, но абсолютно уже забыла синтаксис паскаля, могу только на си накатать, прастити.

[Breathe_Carolina]

хм...ладно. что-нибудь придумаю)
всё равно спасибо)

[.Elijah]

Var c: Char;
    s: String;
    i,k,p: Integer;
Begin
  ReadLn(c); {Чтение заданного символа}
  ReadLn(s); {Чтение заданного слова}
  p:= Pos(c,s); {Определяем позицию символа}
  If (p=0) Then {Функция вернёт 0, если символ не будет найден}
  	WriteLn('Такого символа в слове нет.')
  Else {Если символ есть, то ...}
  Begin
    WriteLn('Указанный символ расположен на позиции: ',p);
    k:= 0; {k хранит количество вхождений}
    p:= Length(s); {p хранит длину строки(слова)}
    For i:=1 To p Do {Пробегаем по всем символам слова}
      If (s[i]=c) Then inc(k); {Если символ совпадает, увеличиваем на 1 переменную k}
    WriteLn('Количество вхождений данного символа: ',k);
  End;
End.