Var s: string; begin readln(s); if (Pos('л',s)>0) and (Pos('е',s)>0) and (Pos('с',s)>0) then writeln('Можно') else writeln('Нельзя') end.<span> </span>
Несомненно, пользователь <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>
Program Valerya; uses CRT; car a, b, c, d:integer; begin a := 3; b := 2; c := 5; d := 7; if a – b < 0 then if d < c then if d < 0 then a := b else else a := d else d := c; writeln(d); end. это программа. а значение d=5
Ниже составлена универсальная программа для задач такого типа. Все, что вам требуется-прописать в поле констант g как отрезок, h как целое. Прога выведет количество k отрезков g в бруске или чем-то таком h.