Напишите алгоритм, проверяющий, является ли частью данного слова слово "сок". Если ответ отрицательный, то добавьте к введенному слову слово "нет" в начало и конец. Если ответ "да", то проверьте, не является ли оно словом «сокол»

Категория: Delphi/Pascal

2012-01-17 22:42:07

code: #pascal

Var Word,sokol : string;
SearchWord : string[20];
Position : Byte;
Begin
 write('Введите слово:');
 readln(word);
 sokol:='сокол'; writeln(sokol);
 SearchWord := 'сок'; writeln(SearchWord);
 Position := Pos(SearchWord, Word);
 if Position <> 0 then 
 begin
  if (word=sokol) then writeln('Это слово-',word)
  else writeln('Слово:',SearchWord,' содержится в слове-',Word); 
 end
 else writeln('нет',Word,'нет'); 
End.

Поделиться:

Sample Code

категории

Похожие статьи: