Версия для печати темы

Автор: Гость 24.12.2006 17:53

пожалуйста пмогите с задачей

Напечатать все буквы текста, которые в него входят не менее 2-х раз !! ПЛЗ

Автор: klem4 24.12.2006 18:38

  for ch := 'a' to 'z' do
   if Pos(ch, Copy(s, Pos(ch, s) + 1, 255)) <> 0 then
    writeln(ch);