Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз

@AvoKAD123 · Регистрация: 21.12.2017

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

5. Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз.

@ZX Spectrum-128 · 22.12.2017, 19:38

Pascal

var
  s, t: string;
  i, k: integer;
 
begin
  readln(s);
  k := 0;
  k := pos(' ', s);
  t := copy(s, 1, k - 1); //первое слово
  delete(s, 1, length(t));
  k := 0;
  k := pos(t, s);
  if k <> 0 then
    writeln('Первое слово "', t, '" в строке встречается еще раз.')
  else
    writeln('Первое слово в строке не встречается.')
end.

@AvoKAD123 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 3
		1
	Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз 21.12.2017, 21:01. Показов 1117. Ответов 1 Метки нет (Все метки) 5. Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз. 0

Опции темы

Составить программу, которая определяет, встречается ли в тексте первое слово, еще хотя бы раз

Решение