Question

ABCpaskal: С клавиатуры вводится строка. Составить программу, которая заменяет все буквы а на о. Помогите!!!СРОЧНО!!!

Answer 1

Program tmp;
uses crt;
var   st:string; 
i:integer;
begin
clrscr;
write(vvedite stroku: ');
readln(st);
for i:=1 to length(st) do
begin                           
if st[i]='a' then st[i]:='o';                     
end;
writeln(st);
readkey;
end.

Answer 2

Замена буквы 'а' на 'о' в строке

Для замены всех букв 'а' на 'о' в строке, можно использовать следующий алгоритм:

1. Считать строку с клавиатуры. 2. Пройтись по каждому символу в строке. 3. Если символ равен 'а', заменить его на 'о'. 4. Вывести измененную строку.

Вот пример программы на языке Pascal, который реализует этот алгоритм:

program ReplaceAwithO;

var
  inputString, outputString: string;
  i: integer;

begin
  // Считываем строку с клавиатуры
  writeln('Введите строку:');
  readln(inputString);

// Заменяем все буквы 'а' на 'о'
  outputString := '';
  for i := 1 to length(inputString) do
  begin
    if inputString[i] = 'а' then
      outputString := outputString + 'о'
    else
      outputString := outputString + inputString[i];
  end;

// Выводим измененную строку
  writeln('Результат замены:');
  writeln(outputString);

// Ждем нажатия клавиши перед завершением программы
  readln;
end.

После запуска программы, она попросит вас ввести строку. После ввода строки, программа заменит все буквы 'а' на 'о' и выведет измененную строку.

Примечание: Обратите внимание, что в данном примере используется русская буква 'а'. Если вам нужно заменить английскую букву 'a', то вам нужно будет изменить условие внутри цикла на `if inputString[i] = 'a' then`.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.