После каждого третьего символа в тексте поставить точку Паскальprogram pr1;uses crt;var...

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.