Предмет: Информатика, автор: Nektary

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

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

Ответы

Автор ответа: Helper211
1

PascalABC

var s: string;

begin

readln(s);

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

end.


Nektary: Спасибо
Интересные вопросы
Предмет: Математика, автор: koteyka2282281337