1. Пол <> 'ж'
- отбираем 3 записи
2. Из оставшихся (где пол=<span>'ж') отбираем записи, для которых Английский <= Французский - таких записей 2.
3. Проверяем оставшуюся запись на условие Французский <> Немецкий - она ему удовлетворяет.
4. Суммируем количество отобранных записей: 3+2+1=6
<em>Ответ: 6 записей</em>
</span>
ИК-порт:пульт-телевизор.
Bluetooth: Мобильный телефон
Должен быть так))))
var
a: array [1..4] of char;
s: string;
i: byte := 1;
begin
readln(s);
while (i < length(s)) do
begin
if ((not(s[i] in ['ж', 'ч', 'ш', 'щ'])) or (pos(s[i], s) > i)) then
delete(s, i, 1)
else
i += 1;
end;
writeln(s);
end.
Суть в том, чтобы удалить все нешипящие буквы, а также повторы шипящих, после чего просто вывести строку