Question

После каждого третьего символа в тексте поставить точку Паскаль program pr1;uses crt;var a: string; i: integer;beginwriteln ('введите строку');read (a);for i:=length (a) downto 1 do Insert('.',a,i+3); writeln('Полученная строка = ',a); readln;End.Либо другим возможным способом через insert

Answer 1

программа на PascslABC под турбопаскаль подправить думаю справишься самостоятельно...

var

   s : string;

begin

   writeln('введите строку: ');

   read(s);

   for var i := 1 to s.Length div 3 do insert('.', s, i*4);

   writeln('полученная строка: ', s);

end.

Answer 2

Чтобы после каждого третьего символа в строке поставить точку, вы можете использовать процедуру Insert и цикл for для обхода строки. Вот пример Pascal-кода, который реализует данную задачу с использованием Insert:

pascalCopy code
program InsertDots;
uses crt;

var
  a: string;
  i: integer;

begin
  writeln('Введите строку');
  readln(a);

  i := 3; // Начинаем с третьего символа, так как индексы строк начинаются с 1
  while i <= Length(a) do
  begin
    Insert('.', a, i+1); // Вставляем точку после каждого третьего символа
    i := i + 4; // Переходим к следующему третьему символу
  end;

  writeln('Полученная строка = ', a);
  readln;
end.

В этом коде мы используем while-цикл, чтобы проходить по строке a. Внутри цикла используется Insert('.', a, i+1) для вставки точки после каждого третьего символа в строке a. После каждой вставки мы увеличиваем значение i на 4, чтобы перейти к следующему третьему символу.

Теперь вы можете ввести строку, и программа добавит точку после каждого третьего символа.