profile="http://gmpg.org/xfn/11"> ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Delete (), Паскаль. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Delete (), Паскаль.

ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Delete (), Паскаль.
ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Delete ( Str; I, N ) удаляСт Π² строкС Str, количСство символов N, начиная с ΠΏΠΎΠ·ΠΈΡ†ΠΈΠΈ I.

program Task_Str6;

  {Π·Π°Π΄Π°Ρ‡ΠΈ Π½Π° строки паскаль с Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅ΠΌ}
  {Delete ( Str; i, n  ), Паскаль}

var
  i, n, m: integer;
  s_Str: string;

begin
  s_Str := 'Π”ΠΎΠΌΠ° Π±Ρ‹Π»ΠΈ Π²Ρ‹ΡˆΠ΅, Ρ‡Π΅ΠΌ Π΄Π΅Ρ€Π΅Π²ΡŒΡ.';
  n := Length(s_Str);
  m := n - 10;
  Delete(s_Str, 10, m);
  n := Length(s_Str);
  for i := 1 to n do
    Write(s_Str[i]);
  Writeln;
  ReadLn();
end.

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:
ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Delete (), Паскаль
ΠŸΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Delete (), Паскаль.

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