Question

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

Answer 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.

Так?