Написать программу, которая во введённой с клавиатуры строке заменяет все маленькие гласные латинские буквы на большие. pascal Пожалуйста можно без массивов.
Ответы на вопрос
Ответил nikska97
0
вот, вроде так должно получится)
Приложения:
Ответил Stas1211
0
А без массивов можно?
Ответил pacixor
0
//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.
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.
Приложения:
Ответил Stas1211
0
а можно как-то без [ ]?
Новые вопросы