Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Обработка символов
Здравствуйте!Помогите решить задачу,срочно нужно!Заранее всем спасибо!
Задача:Напечатать все слова текста, отличные от заданного слова.(текст произвольный)
1 | Автор: 1708 | 2011-03-29, 13:10   |  Репутация: [ + 0 ]
var
a,b:string;s:integer;
begin
write('Введите слово');
readln(a);
write('Введите текст');
read(b);
repeat begin
s:=pos(a,b);
if s<>0 then delete(b,s,length(a));
end;until s=0;
writeln(b);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-03-31, 10:39   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: