Программа написана на языке Pascal
<em>Трассировка</em><span> — это операция, позволяющая определить адреса серверов, через которые проходят данные, получаемые браузером, а также скорость передачи данных каждым из серверов. Трассировка бывает полезна, например, когда необходимо выяснить причину долгой загрузки веб-сайта. Чтобы выполнить трассировку, откройте терминал командной строки, наберите команду следующего вида и нажмите клавишу «Enter»</span>
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.
Валя, Вася,Вова,вода,волк,Наташа,панамка ананас