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.

Так?

Answer 2

Для выполнения данной задачи на Паскале, вам потребуется написать программу, которая запрашивает строку от пользователя, заменяет гласные буквы русского алфавита на символ "@" и выводит результат. Для этого можно использовать цикл для обхода символов строки и проверку на гласные буквы.

Ниже приведен пример программы на языке Pascal:

pascalCopy code
program ReplaceVowels;

var
  inputStr, resultStr: string;
  i: integer;
  vowelSet: set of char;

begin
  // Создаем множество гласных букв русского алфавита
  vowelSet := ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];

  // Запрос строки у пользователя
  Write('Введите строку: ');
  ReadLn(inputStr);

  // Заменяем гласные буквы на символ "@"
  resultStr := '';
  for i := 1 to Length(inputStr) do
  begin
    if inputStr[i] in vowelSet then
      resultStr := resultStr + '@'
    else
      resultStr := resultStr + inputStr[i];
  end;

  // Выводим результат
  WriteLn('Результат: ', resultStr);

end.

Программа запрашивает у пользователя строку, затем использует цикл для обхода каждого символа в строке и проверяет, является ли символ гласной буквой русского алфавита. Если символ является гласной, то он заменяется на символ "@". В противном случае символ остается неизменным. Результат замены выводится на экран.