Заменить в каждой нечетной строке все прописные согласные буквы на заглавные

[Aleksandr H.]

Сообщение от Larisa_P

....
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]){латинские}
else if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32){русские а..п}
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80){русские р...я}
else if s[i]='ё'then s[i]:='Ё';{русская ё}
....

А что за версия паскаля которая не обрабатывает с помощью Upcase кирилицу (ну кроме ё)?

определением согласной буквы......

not(определение гласной буквы)

[Аватар]

А что за версия паскаля которая не обрабатывает с помощью Upcase кирилицу (ну кроме ё)?

Так турбо паскаль же и только ['a'..'z']

not(определение гласной буквы)

Нет. Есть еще ь, ъ и й вроде ни куда не относится