Как проверить одинаковые ли слова на Pascal. Если одинаковые то вывести «Yes», если нет то вывести «No». Заранее Ввод: стоп стоп
Вывод: Yes

Question

Информатика: Как проверить одинаковые ли слова на Pascal. Если одинаковые то вывести «Yes», если нет то вывести «No». Заранее Ввод: стоп стоп Вывод: Yes

VankaOchevidnost135 · Answer

PascalABCvar s: string; begin readln(s); writeln((s.Substring(0,s.IndexOf( ))=s.Substring(s.IndexOf( )+1)) ? Yes : No ); end....