Урок 17. Задача 9.

Primary tabs

Submitted by Dennis80 on Sat, 09/03/2022 - 06:52

Forums:

Урок 17. Задача 9.

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно). 

var s, s_2 :string;
    i :integer;
 
begin
  s := 'b5ghh55788oooggttttt';
  s_2 := s[1];
  for i := 1 to length(s) do
    if s[i] <> s[i + 1] then
      s_2 := s_2 + s[i + 1];
  writeln(s_2);
end.
  • Log in to post comments
  • 2191 reads
vedro-compota's picture

vedro-compota

Thu, 09/08/2022 - 19:27

выходить за массив нельзя

_____________
матфак вгу и остальная классика =)

Dennis80

Sat, 09/10/2022 - 20:26 

var s, s_2 :string;
    i :integer;

begin
  s := 'b5ghh55788oooggttttt';
  s_2 := s[1];
  for i := 2 to length(s) do
    if s[i] <> s[i - 1] then
      s_2 := s_2 + s[i];
  writeln(s_2);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 09/11/2022 - 15:17

переписать с поддержкой пустой строки

_____________
матфак вгу и остальная классика =)

Dennis80

Wed, 09/14/2022 - 18:30 

var s, s_2 :string;
    i :integer;
 
begin
  s := 'b5ghh55788oooggttttt';
  s_2 := '';
  if s <> s_2 then
  begin
    for i := 2 to length(s) do
      if s[i] <> s[i - 1] then
      s_2 := s_2 + s[i];
    writeln(s_2);
  end
  else
    write('String is empty');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 09/14/2022 - 19:40

засчитано

_____________
матфак вгу и остальная классика =)