Склавиатуры вводят слово и символ.составьте программу,которая: проверяет,есть ли в этом слове заданный символ
147
413
Ответы на вопрос:
var s: string;
c: char;
begin
readln(s,c);
if pos(c,s)< > 0 then writeln('est') else writeln('netu');
end.
Популярно: Информатика
-
ДимаСуровенков21.01.2021 07:29
-
Saida666623.12.2021 05:53
-
TretyakovaUlyana14.09.2021 12:49
-
Milkis05110520.05.2021 22:02
-
otepovaaazan05.11.2022 17:58
-
serg620503.02.2021 17:46
-
няшкаморскаясвинка06.04.2023 04:41
-
Viralave09.05.2021 07:24
-
LilauSen21.01.2020 01:34
-
ивашка904.01.2022 12:45