Запросить строчку (string), поменять в ней гласные буковкы русского алфавита на

Запросить строчку (string), поменять в ней гласные буквы российского алфавита на символ @.Задачка на Паскале.

Задать свой вопрос
1 ответ

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.

Так?

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт