После каждого третьего символа в тексте поставить точку паскаль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

infaitile infaitile    3   08.10.2019 02:50    1

Ответы
ekaterina2206 ekaterina2206  10.10.2020 03:10

программа на 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика