<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
s:=s.Left(Pos('!',s)-1);
Writeln('Пробелов: ',s.Where(c->c=' ').Count);
Writeln('Буква "ю" в последовательность ',Pos('ю',s)=0?'не ':'',
'входит');
if s.Intersect('шина').Count=4 then
Writeln('Среди символов есть все буквы слова "шина"')
else Writeln('Среди символов нет всех букв слова "шина"');
if s.Matches('но|он').Count>0 then
Writeln('Есть соседствующие буквы "он" или "но"')
else Writeln('Нет соседствующих букв "он" или "но"');
if s.ToCharArray.Pairwise((x,y)->x=y).Count>0 then
Writeln('Есть пара соседствующих одинаковых символов')
else Writeln('Нет пары соседствующих одинаковых символов')
end.
<u>Пример:</u>
Введите строку: наша пища хороша, но не так, чтобы очень. соответственно, мы не очень толсты! как-то так.
Пробелов: 12
Буква "ю" в последовательность не входит
Среди символов есть все буквы слова "шина"
Есть соседствующие буквы "он" или "но"
Есть пара соседствующих одинаковых символов
А) a+91-x)\4
б) exp(ln(sin) * 2) * (exp(ln(x) * 3) //abs не надо тк мы в степень возводим минус не реален
в) exp(ln(x) * 4)
е) sqrt(x) * sqrt(y+1)
и) sqrt(exp(ln(x) * 2)) + y
Begin
while true do begin
writeln(random(1000));
end
end.
Ответ :EАВДЖБГ
чтобы научиться решать эти задания , просто открой браузер , зайди на любой сайт и посмотри как выглядит ссылка в адресной строке , удачи!