Question

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

Ввод: стоп стоп
Вывод: Yes

Answer 1

PascalABC

var s: string;

begin

readln(s);

writeln((s.Substring(0,s.IndexOf(' '))=s.Substring(s.IndexOf(' ')+1)) ? 'Yes' : 'No');

end.