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.
Нужно 64 умножить на 128 и опять умножить на. 256= х байт дальше разберетесь сами
<span>тильда (~) ,</span><span>знак номера (#) ,п</span><span>роцент (%) ,</span><span>амперсанд (&) ,</span><span>звездочка (*) ,</span><span>фигурные скобки ({}) ,</span><span>обратная косая черта (\) ,</span><span>двоеточие (:) ,</span><span>угловые скобки (<>) ,</span><span>вопросительный знак (?) ,</span><span>косая черта (/) ,</span><span>знак плюс (+) ,</span><span>вертикальная черта (|), </span><span>знак кавычек (")</span>
Слово<span> ‘компьютер’ ...является транскрипцией </span>английского слова<span> computer, что означает </span>вычислитель<span>. </span>Английское<span> понятие ‘computer’ </span><span>гораздо шире, чем понятие ‘компьютер’ в русском языке.</span>
<body bgcolor="#008000">
<div style="color: #9400d3"><span>Решить уравнения 7^x+3=0</span></div>
</body>