Задача 9 Урок 16

Primary tabs

Submitted by slavina036 on Sun, 09/05/2021 - 08:44

Forums:

Задача 9 урок 16

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

5533g

вернуть:

53g

для строки:

b5ghh55788oooggtttttt

вернуть:

b5gh578ogt
program U16Z9;
var s,news: string;
    i,d: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  news:=s[1];
  d:=1;
  for i:=2 to length(s) do
  begin
    if (s[i]<>news[d]) then
    begin
      news:=news+s[i];
      d:=d+1;
    end;
  end;
  write(news);
  readln();
end.
  • Log in to post comments
  • 1796 reads
vedro-compota's picture

vedro-compota

Wed, 09/29/2021 - 19:49

решение засчитано

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

slavina036

Fri, 10/01/2021 - 09:29 

program U16Z9;
var s: string;
    i: integer;
    d: char;
begin
  writeln('vvedite stroku s');
  readln(s);
  d:=s[1];
  write(d);
  for i:=2 to length(s) do
  begin
    if (s[i]<>d) then
    begin
      d:=s[i];
      write(d);
    end;
  end;
  readln();
end.