profile="http://gmpg.org/xfn/11"> Π‘ΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΠ· строки Π² Π½ΠΎΠ²ΡƒΡŽ строку Π±Π΅Π· ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов, паскаль. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Π‘ΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΠ· строки Π² Π½ΠΎΠ²ΡƒΡŽ строку Π±Π΅Π· ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов, паскаль.

Π‘ΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΠ· строки Π² Π½ΠΎΠ²ΡƒΡŽ строку Π±Π΅Π· ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов, паскаль.
Π’ Ρ†ΠΈΠΊΠ»Π΅ ΠΈΠ· строки s_Str1 (исходная строка) ΠΈΠ·Π²Π»Π΅ΠΊΠ°Π΅ΠΌ ΠΏΠΎ ΠΎΠ΄Π½ΠΎΠΌΡƒ символу. Π”Π°Π»ΡŒΡˆΠ΅ провСряСм Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠ΅ΠΉ Pos Π½Π°Π»ΠΈΡ‡ΠΈΠ΅ символа Π² строкС s_Str2 (новая строка). Если этого символа Π½Π΅Ρ‚ Π² Π½ΠΎΠ²ΠΎΠΉ строкС, ΠΎΠ½ добавляСтся Π² Π½ΠΎΠ²ΡƒΡŽ строку s_Str2. Ѐункция length(s_Str1) Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Ρ€Π°Π·ΠΌΠ΅Ρ€ строки — Π΅Π΅ Π΄Π»ΠΈΠ½Ρƒ.

program Del_Sim;

  {Π‘ΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΠ· строки Π² Π½ΠΎΠ²ΡƒΡŽ строку Π±Π΅Π· ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов, паскаль.}
var
  {s_Str1 исходная строка, s_Str2 новая строка}
  s_Str1, s_Str2: string;
  i, n: integer;
begin
  s_Str1 := 'Hello, world!.';
  n := length(s_Str1);
  for i := 1 to n do
  begin
    //ΠΏΡ€ΠΎΠ²Π΅Ρ€ΠΊΠ° Π½Π° поиск символа Π² строкС
    if (pos(s_Str1[i], s_Str2) = 0) then
      s_Str2 := s_Str2 + s_Str1[i]; // ДобавляСм Π² Π½ΠΎΠ²ΡƒΡŽ строку
  end;
  WriteLn('Π˜ΡΡ…ΠΎΠ΄Π½Π°Ρ строка: ', s_Str1);
  WriteLn('Новая строка: ', s_Str2);

  //Π·Π°Π²Π΅Ρ€ΡˆΠ΅Π½ΠΈΠ΅ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹
  WriteLn('НаТмитС <Enter>, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π²Ρ‹ΠΉΡ‚ΠΈ.');
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
Π‘ΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΠ· строки Π² Π½ΠΎΠ²ΡƒΡŽ строку Π±Π΅Π· ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов, паскаль
Π‘ΠΊΠΎΠΏΠΈΡ€ΠΎΠ²Π°Ρ‚ΡŒ ΠΈΠ· строки Π² Π½ΠΎΠ²ΡƒΡŽ строку Π±Π΅Π· ΠΏΠΎΠ²Ρ‚ΠΎΡ€ΡΡŽΡ‰ΠΈΡ…ΡΡ символов, паскаль.

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.