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

loxsanya2017 loxsanya2017    3   17.04.2020 18:54    7

Ответы
zahar4ikk zahar4ikk  13.10.2020 10:58

PascalABC

var s: string;

begin

readln(s);

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика