Заменить все буквы, стоящие после _ на такие же, - вопрос №5175117 от Roman4ik1207 19.05.2021 15:24

Question

Информатика: Заменить все буквы, стоящие после _ на такие же, но заглавные. паскаль

Roman4ik1207 · Answer

Вроде так работает
var
s:string;
i:integer;
begin
readln(s);
write(s[1]);
for i:=2 to length(s) do if s[i-1] = '_' then write(Upcase(s[i])) else write(trim(s[i])); //это в одну строчку с предыдущей
end.

Заменить все буквы, стоящие после "_" на такие же, но заглавные. паскаль