Удваивание символов в строке - 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.