Удваивание символов в строке - Pascal
Формулировка задачи:
При выполнении программы, в первой заданной строке удваивается каждый символ, при-надлежащий также второй строке.
Решение задачи: «Удваивание символов в строке»
textual
Листинг программы
procedure stroka(s2:string; var s1:string); var i:byte; begin for i:=length(s1) downto 1 do if pos(s1[i],s2)>0 then insert(s1[i],s1,i); end; var s1,s2:string; begin writelN('pervaya stroka : '); readln(s1); writeln('vtoraya stroka : '); readln(s2); stroka(s2,s1); writeln(s1); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д