String. Опции

[Santrex]

Народ.Помогите прогрмисту 1 курса.Вот проги не получаються а сдать их надо уже через 2 дня.Помогите чем можете и чем скорей тем лучше.Заранее спасибо.
А вот и условие прог: :p2:
1)Задана строка символов.Напечать повторяющийся символ.

2)Задан текс.Выполнить Сортировку по алфавиту слов,имеющих четное количесто букв.

3)Задан текст.Удалить одинаковые слова.
:p2: В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы.
Я надеюсь вы сможете помочь мне написать хотяб пару прог.

Сообщение отредактировано: Santrex - 17.12.2004 20:25

[Digitalator]

В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы.

Эхх, что за програмистов растят в теперяшних вузах.......

А вообще надо бы написать что за текст (№2, №3), что в нем может быть и чего не может быть, из чего могут состоять слова и т.д. и т.п. - условие явно недостаточное

а первое примерно так:

Код

var s:string;
     i:byte;
     m:array[byte] of byte;
     max:integer;
     c:char;
begin
readln(s);
for i:=1 to length(s) do inc(m[ord(s[i])]);
for i:=1 to 255 do if m[i]>max then
 begin
 max:=m[i];
 c:=chr(i);
 end;
if max>0 then writeln (c,' ',max) else writeln('Empty string');
end.

Не проверял, не компилировал, может содержать ошибки