Свобода лучше, чем несвобода. Нам всё введут, а мы выберем. Напишите программу, которая из одной строки считает:
строка (разделитель) число (необходимое количество уникальных символов) строка (для анализа)
Затем по первой строке разделить последнюю и выбрать из полученного списка только те слова, в которых уникальных символов не меньше указанного числа.
var
x, y: integer;
n: integer;
sum: integer;
mindif: integer;
f: text;
begin
assign(f,'C:\27-A.txt');
reset(f);
readln(f, n);
sum := 0;
mindif := 20001;
while not eof(f) do begin
readln(f, x, y);
if x > y then
sum := sum + x
else
sum := sum + y;
if (abs(x - y) < mindif) and (abs(x-y) mod 3 <> 0) then mindif := abs(x-y);
end;
if sum mod 3 <> 0 then
writeln(sum)
else
writeln(sum - mindif);
end.
Объяснение: