Ответы на вопрос:
Var s,s0: string; begin writeln('введите строку s: '); readln(s); writeln('введите строку s0: '); readln(s0); if pos(s,s0)> 0 then writeln('да') else writeln('нет'); end. пример: введите строку s: две введите строку s0: даны две строки да
Популярно: Информатика
-
Sake11115.06.2021 01:29
-
Павлик808915.01.2021 17:15
-
TigrNavigator32221.05.2022 15:47
-
Vasianeumaha27.06.2021 07:57
-
ДарьяСв16.10.2020 12:13
-
Дэникс111.08.2022 13:33
-
Титанэжжжжж27.04.2022 16:27
-
fhuffggergryth5h619.05.2021 05:43
-
SafeKiller22806.04.2022 14:47
-
сырнаябулочка2105.11.2020 10:32