D P
Мудрец
(11101)
5 лет назад
Наталья, ваша задача на паскале ВООБЩЕ не решается с наскока ибо задача поставлена некорректно. Строка на русском языке записана не просто так а в какой-то КОДИРОВКЕ, и не зная ее заранее манипулировать с символами будет ОЧЕНЬ СЛОЖНО, так как потребуется каким-то методом эту кодировку постараться определить. Сообщите эту радостную весть тому, кто вам ее задал. Если до него не дойдет, предложите написать свой вариант а потом скормите ему строку в кодировке utf8 и utf16 и понаблюдайте за результатом.
st:string;
k,u:string;
begin
readln(st);
k:=Pos ('у, е, ы, а, о, э, я, и, ю',st);
u:=Pos('у, е, ы, а, о, э, я, и, ю',st);
if (LeftStr(str,1)=RightStr(str,1))
then writeln('да')
else writeln('нет');
end.
Где ошибка?