Удваивание символов в строке - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
