Строки. Pascal ABC.

[VladimirAvakov]

Дана строка s, содержащая менее чем 150 символов. Выяснить, встречается ли в ней набор символов ая или яя. Использовать стандартные процедуры и функции в действиях над строками.

Ребят срочно!

[Stilet]

var s:string;begin readln(s); if (pos('ая',s)<>0)or (pos('яя',s)<>0) then write('yes') else write('no'); readln;

[Вадим Мошев]

Всё-таки грамотнее будет писать так: pos(...) > 0.
Функция Pos возвращает номер позиции первого вхождения подстроки в строку

[Stilet]

Всё-таки грамотнее будет писать так: pos(...) > 0.

Врядли она минус вернет

[Poma][a]

Функция Pos возвращает номер позиции первого вхождения подстроки в строку

Returns a pointer to the first occurrence of S2 in S1. If S2 does not occur in S1, returns Nil.

by Free

возвращает позицию первой подстроки subs в строке s (или 0 если подстрока не найдена)

by ABC (фи..)

Так что, без разницы как писать > 0 или <> 0.. (ИМХО)