Запросить строку (string), заменить в ней гласные буквы алфавита на символ @. на паскале.
evgen22region
3
08.05.2019 08:44
0
Другие вопросы по теме Информатика
gahakadbobo22
30.09.2019 05:20
0HIMiK0
30.09.2019 05:20
6789234158333
10.11.2020 18:40
nkarakulina
10.11.2020 18:40
sakyra2025
02.06.2019 06:50
kroshkaPo
27.04.2020 19:27
тса2
27.04.2020 19:27
амон2288
03.10.2019 10:30
Популярные вопросы
- Баббитовый вкладыш подшипника из сплава марки Б16 на основе олова, легированного...
1 - Перший збірник законів Стародавньому Сході ким був укладений уроки правління...
3 - : разберите норму права по ее структур Ст.14 СК РФ Не допускается заключение...
2 - ЯЗЫК ПИТОН Напиши программу для сохранения списка дел на день.Сначала программа...
2 - 2-тапсырма. Өздерің естіген табу сөздерді (5 сөз) естеріне түсіріп, сол табу...
2 - Сторону квадрата збільшили на 10 %.На скільки відсотків збільшилась площа...
2 - РЕШИТЕ! соотнеси появление организмов с эрами:а) архейскаяб) протерозойская1)многоклеточные...
2 - 1) m² - 18m + 81 = 2) –0,49 + 4a²=3) c³ + 64 = решытт...
1 - Чем является пока в предложении: Я внимательно слушаю легенды, пока мне говорят...
3 - на малюнку 3 наведено графік швидкісті руху автомобіля. визначте максимально...
3
program ll1;
var i, n: integer;
s: string;
begin
readln(s);
n:= Length(s);
for i:=1 to n do
if s[i] = 'а' or 'у' or 'е' or 'ы' or 'о' or 'э' or 'я' or 'и' or 'ю' then
s[i]:='@';
write (s);
end.
Так?