Написать программу, которая во введённой с клавиатуры строке заменяет все маленькие гласные латинские буквы на большие. pascal Пожалуйста можно без массивов.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.