а) Вместо строчки
f := max(max(a, b), max(c,d));
Вставить строчку
f := max(max(a, b), c);
б) Вместо строчки
f := max(max(a, b), max(c,d));
Вставить строчку
f := max(max(b, c), d);
в) Добавить функцию
function min (x, y: integer): integer;
begin
if x > y then min := y else min := x;
end
Вместо строчки
f := max(max(a, b), max(c,d));
Вставить строчку
f := min(min(a, b), min(c,d));
г) (с добавленной функцией из пункта в) !!!)
Вместо строчки
f := max(max(a, b), max(c,d));
Вставить строчку
f := max(max(a, b), max(c, d)) - min(min(a, b), min(c, d));
Несомненно, пользователь <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>
A > not ( not A or B and not C ) = not A or not A or B and not C = not A or B and not C
10,10,10,10,10,10,10,10,10