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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы