Написать программу, проверяющую, является ли частью данной строки слово 'сок'

@cccc · Регистрация: 05.11.2012

Author24 — интернет-сервис помощи студентам

Дана строка символов. Написать программу, проверяющую, является ли частью данной строки слово 'сок'. Ответ должен быть 'да' или 'нет'.

@Adpecke · 11.06.2013, 09:45

Pascal

Var
  Word,SearchWord : string;
  Position : Byte;
Begin
  SearchWord := 'сок';
  writeln ('Введите строку ');
  readln (Word);
  Position := Pos(SearchWord, Word);
  if Position <> 0
    then
      begin
        write ('Фрагмент <',SearchWord,'> содержится в строке <',Word);
        writeln ('>, начиная с позиции ',Position );
      end
    else
      writeln('Фрагмент <',SearchWord,'> не содержится в строке <',Word, '>');
End.

@cccc · 11.06.2013, 10:26 **[ТС]**

Спасибо!)

@cccc 16 / 16 / 0 Регистрация: 05.11.2012 Сообщений: 40
		1
	Написать программу, проверяющую, является ли частью данной строки слово 'сок' 11.06.2013, 09:28. Показов 1576. Ответов 2 Метки нет (Все метки) Дана строка символов. Написать программу, проверяющую, является ли частью данной строки слово 'сок'. Ответ должен быть 'да' или 'нет'. 1

@cccc 16 / 16 / 0 Регистрация: 05.11.2012 Сообщений: 40
	11.06.2013, 10:26 [ТС]	3
	Спасибо!) 0

Написать программу, проверяющую, является ли частью данной строки слово 'сок'

Решение