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

[Larisa_P]

Нужна помощь...

Файл input.txt содержит несколько строк текста. Слова в тексте могут разделяться пробелами и знаками препинания. Переписать текст в файл output.txt, заменив в каждой нечетной строке все прописные согласные буквы на заглавные.

Среда Турбо Паскаль.

[min@y™]

над тобой прикололись: прописные и заглавные - одно и тоже.

[Larisa_P]

Сообщение от min@y™

над тобой прикололись: прописные и заглавные - одно и тоже.

Да ну?))) .... Спасибо, что не прошли мимо...

[min@y™]

Спасибо, что не прошли мимо

Ой, ну що ви тrавите!...
https://www.youtube.com/watch?v=gu-rGAAWr-8

[Larisa_P]

Сообщение от min@y™

Ой, ну що ви тrавите!...
https://www.youtube.com/watch?v=gu-rGAAWr-8

С высоты своего возраста позволяю немного потешиться...ассемблеровские коды не просила написать....
Если есть, чем помочь по существу с удовольствием приму помощь... не для себя, а для внучки... И непременно зайду!

[Аватар]

Дык правильно же - прописные и заглавные - одно и тоже. Вот заменить строчные на прописные другое дело

[min@y™]

Незнание того, что прописные и заглавные - одно и тоже, вкупе с древним возрастом, сильно снижает твою репутацию. Айяйяй!

[Larisa_P]

Многа букафф...

Вопросы по заданию к преподавателю...

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
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]:='Ё';{русская ё}
write(s);
readln
end.

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

[Аватар]

if odd(i) then <нечетно>
if s[i] in ['б'..'д','ж','з', ... и т.д. ] - согласная, и латиницу не забыть

[Larisa_P]

Спасибо.
Возможно будут еще вопросы...