Несомненно, пользователь <span><span>Yuliagal </span>правильно сделала задание. Я оставлю свой ответ здесь, если вдруг кто-нибудь не понял, как это задание можно выполнить.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);<em>//Находим позицию символа л </em>
e := pos('е', st);<em>//Находим позицию символа е </em>
s := pos('с', st);<em>//Находим позицию символа с </em>
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); <em>//Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.</em>
if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); <span><em>//Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.</em>
</span><span>end.
Еще раз повторюсь, решение </span></span><span>Yuliagal верное, и самое короткое.</span>
1 в
32 * 8 = 256 бит = 32 байта
2
25 * 80 * 8 = 16 000 бит = 2 000 байт <span>≈</span> 2 кило байта
Нарисуй быстрый закат или рассвет
Что бы солнце плавно пере двигалось и менялась цветами
Используем правила деМоргана и др:
=(А+В+С)•~А•~В•~С=А•~А•~В•~С+~А•В•~В•~С+~А•~•ѕ~С=0
(А•~А=0 и т.п)
Мы с друзьями гуляли в ХОЛОДНОЮ И МОКРУЮ погоду!
