//PascalABC.NET var s: string; i: byte; vowels: string = 'aeiouy'; begin write('Строка = '); readln(s); for i := 1 to length(s) do if pos(s[i], vowels) <> 0 then s[i] := s[i].ToUpper; writeln('После замены = ', s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку