Регистрация
Pузик
08.01.2020 10:00
Информатика
Есть ответ 👍

Наиболее распространенные облачные платформы​

252
353
Посмотреть ответы 1

Ответы на вопрос:

danilukm548p09te8
danilukm548p09te8
4,4(84 оценок)
Program project4; var ch: char; str,str1,str2: string; i: integer; begin      writeln('введите исходный текст: ');       readln(str);       writeln('введите строку которую нужно вставить: ');       readln(str1);       writeln('введите символ после которого нужно вставить: ');       readln(ch);       str2: ='';       i: =pos(ch,str);       while i> 0 do begin          str2: =str2+copy(str,1,i)+str1;           delete(str,1,i);           i: =pos(ch,str);       end;       writeln('результирующая строка: ',str2);               readln; end.

Популярно: Информатика