Developing.ru

Помогите пжл решить одну из задач ( ну или обе ) :
1 Задача
Дано натуральное число X. Определить имеюстся ли в записи числа 2 одинаковые цифры. (нельзя использовать тип переменной String)

2 Задача
Дана строка символов. Сформировать строку: записав слова больше среднего по длине.

Заранее спс.

1. var a:set of byte;
while x>0 do
begin
if x mod 10 in a then begin writeln('ectb'); break; end;
include(a, x mod 10);
x:=x div 10;
end;
Все, что касается разбиения строки на слова, обсуждалось в форуме тысячу раз.