Question

Составьте программу в Паскале абс, которая в исходном тексте:А) утраивает заданный символ.Б) удваивает каждую букву.В) удваивает каждый знак.Г) удваивает каждый пробел.

Answer 1

Так, работает, там букву задания надо ввести, но несложно и по разным программам функции раскидать:)

Answer 2

Программа на языке Паскаль, которая выполняет указанные действия над исходным текстом:

program TextProcessing;

var
  text: string;
  i: integer;

begin
  writeln('Введите исходный текст:');
  readln(text);

writeln('Текст после утраивания заданного символа:');
  for i := 1 to length(text) do
  begin
    write(text[i]);
    write(text[i]);
    write(text[i]);
  end;
  writeln;

writeln('Текст после удвоения каждой буквы:');
  for i := 1 to length(text) do
  begin
    write(text[i]);
    write(text[i]);
  end;
  writeln;

writeln('Текст после удвоения каждого знака:');
  for i := 1 to length(text) do
  begin
    write(text[i]);
    write(text[i]);
  end;
  writeln;

writeln('Текст после удвоения каждого пробела:');
  for i := 1 to length(text) do
  begin
    if (text[i] = ' ') then
    begin
      write(text[i]);
      write(text[i]);
    end
    else
      write(text[i]);
  end;
  writeln;

readln;
end.

Программа запрашивает у пользователя исходный текст и затем выполняет указанные операции над ним.

А) Утраивает заданный символ: Программа просто выводит каждый символ исходного текста три раза подряд.

Б) Удваивает каждую букву: Программа выводит каждую букву исходного текста два раза подряд.

В) Удваивает каждый знак: Программа выводит каждый знак исходного текста два раза подряд.

Г) Удваивает каждый пробел: Программа выводит каждый пробел исходного текста два раза подряд, остальные символы выводит только один раз.