Паскаль!! - вопрос №166194

изображение из вопроса

ПОМОГИТЕ решить задачу на паскале: с клавиатуры вводится текст, определить номер первого вхождение слова 'как', и заменить слово 'как' на 'что'.Заранее спасибо.

Ответы

var
str:string;
s1,s2:string;
p:integer;
begin
  writeln('Enter text ...');
  readln(str);
 
  s1:='как';
  s2:='что';
  p:= Pos(s1,str);
  delete(str,p, 3);
  insert(s2,str,p);

  writeln (str,' ');
end.

19.12.11

Еva

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store