ABCpaskal: Дана строчка символов.Найти,можно ли из знаков данной строчки получить слово

Бесспорно, юзер Yuliagal верно сделала задание. Я оставлю собственный ответ здесь, если вдруг кто-нибудь не сообразил, как это задание можно выполнить.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);//Обретаем позицию знака л
e := pos('е', st);//Обретаем позицию символа е
s := pos('с', st);//Обретаем позицию знака с
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); //Если знак не был найден, то ему присваивается значение одинаковое 0, как следует, последующее исполненье программки вздорно.
if (l gt; 0) and (e gt; 0) and (s gt; 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); //Если знак найден, ему присваивается значения, равное позиции в строке. Дальше выводим на печать знаки, расположенные в этих позициях.
end.
Еще раз повторюсь, решение Yuliagal верное, и самое короткое.

Никита Брайм · Answer 2 · 2019-08-28 05:02:40+3:00

Никита Брайм 2019-08-28 05:02:40

Var
s: string;
begin
readln(s);
if (Pos('л',s)gt;0) and (Pos('е',s)gt;0) and (Pos('с',s)gt;0) then
writeln('Можно') else writeln('Нельзя')
end.

Есения Мартулева 2019-08-28 05:03:40

конечно не будет, а кто сказал в условии про верхний регистр?

Вероника 2019-08-28 05:05:07

Безусловно, а кто говорил про нижний регистр? Задание звучит, можно ли, да, можно.

Анатолий Кикас 2019-08-28 05:11:17

У меня все работает

Анастасия Лесохина 2019-08-28 05:19:45

Природно будет работать, Вы вводите строчку используя нижний регистр. При вводе строки: 'ЛеСка', вы получите ответ: "Нельзя".

Ульяна Кандель 2019-08-28 05:22:44

это дело ЛЕГКО поправить, если попросит создатель вопроса

Агата Петишова 2019-08-28 05:28:11

Здесь на усмотрение создателя задания, если он считает, что всё верно, у меня нет вопросов.

Денис 2019-08-28 05:30:32

в задании сказано маленькими знаками

Ирина 2019-08-28 05:38:11

вот и разобрались )

Дык Вера 2019-08-28 05:43:27

На будущее, пишите все дополнения к заданию, чтобы не было несогласий. Фортуны.

О проекте

ABCpaskal: Дана строчка символов.Найти,можно ли из знаков данной строчки получить слово

Добро пожаловать!