Ответы на вопрос:
PascalABC.NETx-x**2/3+x**6/43**(-x)+Cos(x)-Sin(x**2)(x**3+9*x+12)/(x**2-6*x+15)x+12*Sin(2*x)+Abs(x**3+x**5)
Впаскале есть стандартная функция pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. с её данная решается просто. var s: string; ip,iv: integer; begin write('введите строку: '); readln(s); ip: =pos('п',s); iv: =pos('в',s); if ip*iv=0 then writeln('п или в или обе не найдены в тексте') else if ip< iv then writeln('п встретилось раньше в') else writeln('в встретилось раньше п') end. тестовое решение: введите строку: на лугу пасется корова п встретилось раньше в
Популярно: Информатика
-
senyazoop08rtt21.10.2022 00:08
-
екатерина62518.01.2023 05:18
-
адам12120.05.2023 21:38
-
Лубничка23.04.2021 09:40
-
льоша54554504.04.2022 08:51
-
ObraztsovaOlga23.06.2022 07:31
-
maytanya4716.01.2022 16:15
-
kodwaw17.04.2021 03:33
-
Katrun1510.04.2021 18:56
-
nikolak163202.07.2020 09:36